cxGrid 循环选择条目

最新推荐文章于 2023-06-04 08:01:31 发布

weixin_30263277

最新推荐文章于 2023-06-04 08:01:31 发布

阅读量273

点赞数

原文链接：http://www.cnblogs.com/m0488/p/6609742.html

版权

Delphi DevExpress CxGrid 循环选择条目整理出来的，直接复制粘贴即可使用

以下是从网络上复制粘帖到的，实践证明，利用以下代码进行获取选择行是错误的。

当我们利用 CxGrid进行排序后，它选的索引序号还是未排序前的，会导致选择错误、混乱的条目。

 
         var 
        
         i,j: 
         Integer 
         ; 
        
         begin 
        
         with 
         cxgridview 
         . 
         Controller  
         do 
        
         begin 
        
         for 
         i:= 
         0 
         to 
         SelectedRowCount- 
         1 
         do 
        
         begin 
        
         j := cxgridview 
         . 
         DataController 
         . 
         GetSelectedRowIndex(I); 
        
         //上文GetSelectedRowIndex不会随CxGrid排序而改变，导致造成严重后果 
        
         //ShowMessage(VarToStr(cxgridview.DataController.GetValue(j, 0))); //循环显示第0列 
        
         end 
         ; 
        
         end 
         ; 
        
         end 
         ; 
        
         end 
         ;

以下才是正确的：

CellClick事件中通过如下代码获取到真正的CxGrid序号

 
         //获取单行选择的某列值，可写到CellClick事件中 
        
         with 
         cxGrid1DBTableView1 
         . 
         DataController 
         . 
         DataSet  
         do 
        
         begin 
        
         //此处Current_Record获取到的字符串不会随CxGrid排序而改变 
        
         Current_Record := FieldByName( 
         'CodeData' 
         ).AsString;  
        
         end 
         ; 
        
         //获取多行选择的某列值，grdData为TableView的Name，RzMemo会显示出所有行的CodeData值 
        
         try 
        
         with 
         grdData 
         . 
         Controller  
         do 
        
         begin 
        
         for 
         i:= 
         0 
         to 
         SelectedRowCount- 
         1   
         do 
        
         begin 
        
         grdData 
         . 
         Controller 
         . 
         FocusedRow  := grdData 
         . 
         Controller 
         . 
         SelectedRows[i]; 
        
         RzMemo 
         . 
         Lines 
         . 
         add(grdData 
         . 
         DataController 
         . 
         DataSet 
         . 
         FieldByName( 
         'CodeData' 
         ).AsString); 
        
         end 
         ; 
        
         end 
         ; 
        
         except 
        
         end 
         ;