按DataGrid 自带的排序时报错：Index is being used to order table.

bfaomei

procedure TSALE_CHECK_FRMDOC.ButtonMARKSTATUSClick(Sender: TObject);
var
iCount :Integer;
str_status : String;
begin
     iCount:=-1;
     if dabSALE_CHECK_CONDITION_DT.DataSet.FieldByName('STATUS').AsInteger = 2 then
     begin
          Dialogs.ShowMessage('请先选择复核状态！');
          SysUtils.Abort;
     end;
     if (dsbSALE_CHECK_DETIAL_DT.DataSet.Active) AND (not dsbSALE_CHECK_DETIAL_DT.DataSet.IsEmpty) AND (dabSALE_CHECK_CONDITION_DT.DataSet.FieldByName('STATUS').AsInteger <> 2) then
     begin
         if Jsdialogs.ConfirmBox( #13#10+'选是：将所有已标记的状态更改为所选择的复核状态；'+#13#10+'选否：仅将当前选择的数据状态更改为所选择的复核状态；'+#13#10#1310+'注：状态是“已复核”且保存过的数据不会作任何的修改！','提示',2) then
         begin
              iCount :=0;
              cDataSet.CloneCursor(self.dsbSALE_CHECK_DETIAL_DT.DataSet,false,false,true);
              if dsbSALE_CHECK_DETIAL_DT.DataSet.State in [TDataSetState.dsEdit,TDataSetState.dsInsert] then
                 dsbSALE_CHECK_DETIAL_DT.DataSet.Post;
              cDataSet.Last;
              cDataSet.DisableControls;
              while not cDataSet.Bof do
              begin
                   if ( cDataSet.FieldByName('mark').AsInteger = 1 ) and ( cDataSet.FieldByName('ADJUST_STATUS').AsInteger<>1 ) then
                   begin
                        cDataSet.Edit;
                        cDataSet.FieldByName('CHECK_STATUS').AsInteger := dabSALE_CHECK_CONDITION_DT.DataSet.FieldByName('STATUS').AsInteger;
                        iCount:=iCount+1;
                   end;
                   cDataSet.Prior;
              end;
              cDataSet.Post;
              cDataSet.EnableControls;
         end;
         if iCount=0 then
         begin
              Jsdialogs.ShowMsg('该复核状态不允许再修改！','提示！');
              SysUtils.Abort;
         end;
         if dabSALE_CHECK_CONDITION_DT.DataSet.FieldByName('STATUS').AsInteger =1 then
            str_status :='已复核';
         if dabSALE_CHECK_CONDITION_DT.DataSet.FieldByName('STATUS').AsInteger =0 then
            str_status :='未复核';
         Dialogs.ShowMessage('已将标记过的数据更改为“'+str_status+'”，保存后即生效!');
     end;
end;

bfaomei

我在数据集里加了一个临时字段作为标记，按更改状态时把标记的状态该为特定状态，功能代码在1楼，能实现更改状态，但是点datagrid自带的排序时却报错
请问是什么原因啊？该怎么改？

bfaomei

再次点击 “更改状态”时，执行是相同的代码，但是，然来的错误又没有了。

希望各位能帮帮我啊

bfaomei

也就是 点击 点击 “更改状态” 按钮的次数为 单是报错，为双时没问题

zfang

楼主，你的问题之前有问过。
原来的是怎么解决的呢？

你这里说的不是很明白。是否可以做个能说明这个问题的简单例子传资源上来看看呢？

bfaomei

这是我做的一些测试集合,
你看看吧
还有一个表没建字典.sales_record_check

bfaomei

昨天没加到，

shangxy

还是像上次那样传例子吧，代码这样看不出来什么问题