【结帖】datagrid全选问题！**

chenyongci

利用selectAll方法，只能选取所显示界面的所有记录，搜素论坛，选上optionsdb-edgoloadallrecords该属性后，能选上所有记录，

但是选上optionsdb-edgoloadallrecords属性后，我的获取所选记录的代码就报错

setlength(numstr,datagrid1.SelectedCount);

  with DataGrid1.DataSource.DataSet do
    for i := 0 to DataGrid1.SelectedCount - 1 do
     begin
        [B]Bookmark := DataGrid1.SelectedRows;[/B]         
        numstr:=FieldByName('ResRegNum').AsString;
     end;

报错：
运行系统初始化的时候发生异常：List index out of bounds (1)

类型：EStringListError。

zfang

with DataGrid1.DataSource.DataSet do
    for i := 0 to DataGrid1.SelectedCount - 1 do
     begin
        Bookmark := DataGrid1.SelectedRows;         
        numstr:=FieldByName('ResRegNum').AsString;
     end;
在这个循环之前，提前把Bookmark 记录下来（比如用TStrings），然后再在这个循环里用。

chenyongci

提前记录？？没明白

提前记录不也得用循环把选上的行给一个一个记录下来？跟这样有区别？

zfang

应该是这个属性闹得：edgoLoadAllRecords

procedure TMAINFORM.Button1Click(Sender: TObject);
var
  i,j : Integer;
  Bookmark,s : String;
begin
  Memo1.Clear;
  if DataGrid1.SelectedCount > 0 then
  begin
    DataGrid1.OptionsDB := DataGrid1.OptionsDB - [TDataGridOptionDB.edgoLoadAllRecords];
    for i := 0 to DataGrid1.SelectedCount -1 do
    begin
      DataSetBroker1.DataSet.Bookmark := DataGrid1.SelectedRows;
      for j := 0 to 0 do
      begin
        if (j > 0) then
          s := s + ', ';
        s := s + DataSetBroker1.DataSet.Fields[j].AsString;
      end;
      Memo1.Lines.Add(s);
      s := '';
    end;
    DataGrid1.OptionsDB := DataGrid1.OptionsDB + [TDataGridOptionDB.edgoLoadAllRecords];
  end;
end;

你尝试一下这样子。

chenyongci

回楼上
这样做，确实不报错，但是这样加代码以后，执行完，要是没有刷新数据集，datagrid的轮动条就没了，就只显示最前面能显示的那写记录

zfang

楼主，请根据2楼的思路来做吧。我试过的，可以。

chenyongci

按2楼的实现了，有点奇怪

结贴吧，谢谢