【结贴】临时字段赋值问题**

trickle

我在业务信息的代码里面单独写了一个方法，通过对数据集循环为临时字段赋值。
然后在业务功能的代码里，在数据集代理的afteropen事件里调用这个方法，报下图所示的错误，这个要怎么改啊？？
还有个问题是，我在数据集代理的OnCalcFields事件里对临时字段赋值，但是这个事件的代码会重复执行两边，为什么呢？？有什么方法可以只执行一遍么？

gaihl

楼主的报错是没有对数据集Edit就进行赋值了

trickle

我在赋值之前调用 DataSetCheciAnalySingle.Edit; 还是报错，楼上说的Edit是什么意思？
数据集代理的OnCalcFields事件里对临时字段赋值，但是这个事件的代码会重复执行两边，为什么呢？？有什么方法可以只执行一遍么？

这个问题能解决么？

gaihl

楼主，把完整的代码贴出来看一下吧

trickle

这个是写在业务信息里的方法。
procedure TCheciAnaly.setTempData();
var
  ordernum:integer;
  custnum:integer;
  glsnumouble;
  qyid:string;
  tempqyid:string;
begin
//直接为数据集的临时字段赋值
  ordernum :=0;
  custnum :=0;
  glsnum :=0.00;
  qyid:='';
  DataSetCheciAnalySingle.Edit;
  DataSetCheciAnalySingle.First;
     while(DataSetCheciAnalySingle.Eof=False) do
     begin
       ordernum := ordernum + DataSetCheciAnalySingle.FieldByName('orderSum').AsInteger;
       custnum := custnum+1;
       tempqyid := DataSetCheciAnalySingle.FieldByName('QYLJID').AsString;
       if(qyid.Equals(tempqyid)=False)then
       begin
         glsnum := glsnum+ DataSetCheciAnalySingle.FieldByName('ZD').AsFloat;
         qyid := tempqyid;
       end;
       DataSetCheciAnalySingle.FieldByName('ordercustsum').AsInteger := ordernum;
       DataSetCheciAnalySingle.FieldByName('custsum').AsInteger := custnum;
       DataSetCheciAnalySingle.FieldByName('LCLJ').AsFloat := glsnum;
       DataSetCheciAnalySingle.Next;
     end;
end;

我在业务功能的窗体代码里，数据集代理的 afteropen 事件里调用
procedure TCCFX.dsbCheciSingleAfterOpen(DataSet: TDataSet);
begin

//jsDialogs.ConfirmBox('f','f',1);
CheciAnaly.TCheciAnaly(InfoBrokerCHECIANALY.Info).setTempData;
end;

gaihl

DataSetCheciAnalySingle.First;
     while(DataSetCheciAnalySingle.Eof=False) do
     begin
       ordernum := ordernum + DataSetCheciAnalySingle.FieldByName('orderSum').AsInteger;
       custnum := custnum+1;
       tempqyid := DataSetCheciAnalySingle.FieldByName('QYLJID').AsString;
       if(qyid.Equals(tempqyid)=False)then
       begin
         glsnum := glsnum+ DataSetCheciAnalySingle.FieldByName('ZD').AsFloat;
         qyid := tempqyid;
       end;
       DataSetCheciAnalySingle.Edit;      
      DataSetCheciAnalySingle.FieldByName('ordercustsum').AsInteger := ordernum;
       DataSetCheciAnalySingle.FieldByName('custsum').AsInteger := custnum;
       DataSetCheciAnalySingle.FieldByName('LCLJ').AsFloat := glsnum;
       DataSetCheciAnalySingle.Next;
     end;

gaihl

触发多次OnCalcFields事件是因为你代码中对数据集进行了修改
如果不想在执行setTempData时，触发OnCalcFields事件
可以在进入setTempData时：DataSetLXSJJ.OnCalcFields := nil;  //对事件赋空值，即无事件可以触发
在跳出setTempData时：DataSetLXSJJ.OnCalcFields := DataSetLXSJJCalcFields;  //恢复要触发的事件

trickle

这次好了，太感谢了！结贴吧

gaihl

客气,结贴了！