【结贴】DataGrid光标问题

xhong · 发表于 2010-1-27 10:17:38

请导入资源包，DataGrid分组，第一列表现为复选框，在数据集的改变事件中,如果是选择列发生改变，即选中或不选中，滚动一遍数据集.当数据量大过一屏幕的时候，光标就会乱，初始运行后选中第一行，之后无法直接选到第二行，光标会向下跳，如果数据量小，则没有这个问题。请给解释一下，大数据量时如何连续选中而不让光标乱，谢谢.

xhong · 发表于 2010-1-27 12:50:01

没人在吗？

shangxy · 发表于 2010-1-27 13:49:01

用bookmark做一下标记看看。

xhong · 发表于 2010-1-27 14:11:06

没有作用光标依然错位

shangxy · 发表于 2010-1-27 14:22:06

你是怎么弄的？我这里是可以的：
procedure TMAINFORM.DataSetBroker1DataChange(Sender: TObject; Field: TDataField);
var lBookMark :String;
begin
if Field<>nil then
begin

      if Field.FieldName='XZ' then
      begin
         DataSetBroker1.DataSet.DisableControls;
         lBookMark := DataSetBroker1.DataSet.Bookmark;
         DataSetBroker1.DataSet.First;
         while not  DataSetBroker1.DataSet.Eof do
         begin
            DataSetBroker1.DataSet.Next;
         end;
         DataSetBroker1.DataSet.Bookmark :=lBookMark;
         DataSetBroker1.DataSet.EnableControls;

      end;
   //  DataSetBroker1.DataSet.First;

end;
end;

xhong · 发表于 2010-1-27 14:32:51

ok 谢谢尚工我把标记赋值回去的时候放在enablecontrols 后面了放前面就没问题了

xhong · 发表于 2010-1-27 14:46:19

标记 DataSetBroker1.DataSet.Bookmark :=lBookMark; 语句放在DataSetBroker1.DataSet.EnableControls; 之前和之后有什么区别？

xhong · 发表于 2010-1-27 15:21:08

当一组数据超过一屏幕的时候还是有光标错位的问题某一个分组下的数据多组头滚动出docview的时候就又错位了

shangxy · 发表于 2010-1-27 15:51:36

为什么要在datachange中使用循环，楼主说说需求吧。

xhong · 发表于 2010-1-27 16:19:43

每次选中一行或者取消选中一行要重新计算整个数据集各个供应商的付款合计和总付款合计以及各供应商付款所占整体付款数据的百分比而且计算结果必须显示在各个分组的最后一行上其他行保持空

		自动登录	找回密码
密码			立即注册