【结贴】datagrid 分组后多选取不到Bookmark[请求]**

aaronzzr

不分组，没事，一开就爆“List index out of bounds”
for i := 0 to dgAccountDetail.SelectedCount - 1 do
        begin
          dsbAccountDetail.DataSet.Bookmark := dgAccountDetail.SelectedRows;
end;

lixy

错误报道哪一个索引？ 你尝试改改索引的取值。

aaronzzr

跟踪一下，进入循环第一个就会报错的

zfang

楼主，你的问题跟下面的连接差不多，你参考着改造吧。
http://bbs.justep.com/forum.php?mod=viewthread&tid=27970

aaronzzr

还真的需要存入Stringlist才行，多谢了，结贴吧

aaronzzr

不知道是不是改了TstringList问题，如果选中ExtMutilSelected 照样报错

zfang

什么意思？
不是很明白。

aaronzzr

我把代码改为：
        lBookMark := TStringList.Create;
        try
          for i := 0 to dgAccountDetail.SelectedCount - 1 do
          begin
            lBookMark.add(dgAccountDetail.SelectedRows);
          end;
          for i := 0 to lBookMark.Count - 1 do
          begin
            dsbAccountDetail.DataSet.Bookmark := lBookMark;  
          end;

        finally
          lBookMark.Free;
        end;
这样如果拉出一列到Grouppanle进行分组，多选取数据时不会报错。
但这样Shift多选是无效的，功能与Ctrl多选一样。
为了达到按Shift能多选，我就选中了Grid中的egoExtMultiSelect属性。
选中这个属性，多选取数据还是会报 List index out of bounds...错误的

zfang

有一个简单的方法，可以规避，但不知道是否能满足你的需求
就是在上面的代码处动态设置一下datagrid的options，形如
  DataGrid1.Options := DataGrid1.Options - [TGroupListOption.egoExtMultiSelect];
//。。。。中间你的代码
   DataGrid1.Options := DataGrid1.Options + [TGroupListOption.egoExtMultiSelect];

aaronzzr

好主意，多谢了！请结贴。