cxGrid 循环选择条目

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

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

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
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;

 

以下才是正确的：

recommand

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
//获取单行选择的某列值，可写到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;

 

posted @ 2017-03-24 09:33  麦麦提敏  阅读(766)  评论(0)  编辑  收藏  举报