数据集没法遍历了**

zhangzy

Grid绑定数据集,点列头排序后,这个数据集就不能遍历了,怎么解决这个问题
DataSet .First;
while not DataSet do
begin
    DataSet .Edit;
    DataSet .FieldByName('xxx').AsString := 'xxx';
    DataSet .Next;
end;
结果不是每条记录都被赋值了,这与按哪列排序有关
怎么在这种情况下遍历数据集

buckking

while not DataSet do 改成while not DataSet.Eof do

zhangzy

DataSet .First;
while not DataSet.Eof do
begin
    DataSet .Edit;
    DataSet .FieldByName('xxx').AsString := 'xxx';
    DataSet .Next;
end;
刚才是打错了,没Eof,编译都通不过,呵呵
主要现象是因为需要遍历赋值,如不幸按你赋值的那列排序了,那就会导致赋值后重新排序,就不能全部遍历了,但找不到让Grid暂时不排序的办法,就让它不排序我知道,但这个Grid还是要排序的,只是在遍历时暂时不要排序怎么做?

zhangzy

在线等

zhangzy

顶一下

atiger

正在想办法由结果马上跟贴告知

文世弘

Grid排序和数据集没有直接关系，DataGrid的排序最终设置的是 DataSet.Order，具体不确定是什么问题。

可以这样看看，并且这样会提高效率：

DataSet .DisableControls;
try
DataSet .First;
while not DataSet do
begin
    DataSet .Edit;
    DataSet .FieldByName('xxx').AsString := 'xxx';
    DataSet .Next;
end;
finally
  DataSet EnableControls;
end;

atiger

？？

zhangzy

我代码贴得不够,我以为这个问题你们知道

DataSet .DisableControls;

DataSet .First;
while not DataSet do
begin
    DataSet .Edit;
    DataSet .FieldByName('xxx').AsString := 'xxx';
    DataSet .Next;
end;

DataSet EnableControls;

之前之后都有
DataSet .DisableControls;
DataSet EnableControls;
是不行的,原因是见3楼
是否有办法??

shangxy

DataSet .DisableControls;

tmpstr L= DataSet.Order
DataSet.Order := '';
DataSet .First;
while not DataSet do
begin
    DataSet .Edit;
    DataSet .FieldByName('xxx').AsString := 'xxx';
    DataSet .Next;
end;

DataSet.Order := tmpstr;

DataSet EnableControls;