【结贴】[请求]Index is being used to order table

shangxy

我只是把整个这个事件屏蔽了，就正常使用了，
代码太多了，我们也看不明白楼主都是干什么用的，你可以自己一点点屏蔽代码来找原因

bfaomei

......又被玩死去...

bfaomei

我刚测试了 就这一块引起的！ 不知道怎么解决的好！
CommonBus:=SELF.DataSetBrokerSALES_RECORD_AUDIT_DT.DataSet.FieldByName('SUM_BUSS_CODE').AsString;
     PutStatus:=SELF.DataSetBrokerSALES_RECORD_AUDIT_DT.DataSet.FieldByName('PUT_ON_STATUS').AsInteger;
     lDataSet:=TCloneDataSet.Create(nil);
     lDataSet.CloneCursor(self.DataSetBrokerSALES_RECORD_AUDIT_DT.DataSet,false,true,false);

shangxy

问题产生的大概位置我们已经告诉你了，你对业务比较熟悉，可能比我们更快的找到具体的位置或者原因，如果我们来找可能需要更多的时间

bfaomei

就这句地方：lDataSet.CloneCursor(self.DataSetBrokerSALES_RECORD_AUDIT_DT.DataSet,false,true,false);

bfaomei

try
                                       lDataSet.CloneCursor(self.DataSetBrokerSALES_RECORD_AUDIT_DT.DataSet,false,true,false);
                                       lDataSet.Filtered:=true;
                                       lDataSet.Filter:='SUM_BUSS_CODE ='+CommonBus;
                                       lDataSet.First;
                                       WHILE NOT lDataSet.Eof DO
                                       BEGIN
                                            lDataSet.Edit;
                                            lDataSet.FieldByName('PUT_ON_STATUS').AsInteger:=PutStatus;
                                            lDataSet.Next;
                                       END;
                                       First;
                                     finally
                                            lDataSet.Free;
                                     end;

bfaomei

放在try里面就可以了  辛苦大虾们了  谢谢啊！！！ 终于可以郑重的说一声：结贴！！！

shangxy

lDataSet.Free;
end;
放到最后一个end前释放

bfaomei

这也许是种可能
但我不是那样的需求 把clonecursor放在try块中才是所要做的 放在前面是粗心 也不知道这个错误是由这个引起的 看似风马牛不相及的