onCalcFields**

weirongjia

onCalcFields事件执行结束后接着执行什么事件？
为什么我的程序onCalcFields执行结束后要等估计半分钟才能继续运行

weirongjia

为什么我的程序执行过onCalcFields事件后要等半分钟
就像死机了那样
然后才能再次运行
而且每次出发onCalcFields事件都那样

zfang

onCalcFields事件是每一行记录都会触发一次的。
是不是数据量太大了？

weirongjia

没有
前几天好好的 昨天突然这样的
而且有的模块就没问题  有的模块就有问题

zfang

那做了什么修改？与正常的 对比一下

weirongjia

对比了
没有发现有什么不一样的
那模块好久都没有改  半个月前改好测试通过以后就再没动过了
昨天测试的时候发现问题的

zfang

数据量有多少？

zfang

计算代码怎么写的？贴出来看看。

weirongjia

procedure TYWXX_NBXS.DataSetNBXSXBCalcFields(DataSet: TDataSet);
var
  wzbm: String;
  gsbm: String;
  jldwbm: String;
  jldw: String;
  wzmc: String;
  ggxh: String;
begin
  wzbm:= DataSetNBXSXB.FieldByName('wzbm').AsString;
  gsbm:= DataSetNBXSJB.FieldByName('ck').AsString;
  if(wzbm='') or (gsbm='') then
    exit;

  DataSetNBXSXB.OnCalcFields:= nil;
  try
    LQry.CommandText:='select kcsl from zbmroler.wzkcxxb where wzbm='''+wzbm+''' and gsbm='''+gsbm+'''';
    LQry.Open;
    if (LQry.RecordCount=1) then
    begin
      DataSetNBXSXB.FieldByName('kcsl').AsFloat:=LQry.FieldByName('kcsl').AsFloat;
    end;

    LQry.Close;
    LQry.CommandText:= 'select wzmc,ggxh,jldwbm from wzxxb where wzbm='''+wzbm+'''';
    LQry.Open;
    if not LQry.Eof then
    begin
      wzmc:= LQry.FieldByName('wzmc').AsString;
      ggxh:= LQry.FieldByName('ggxh').AsString;
      jldwbm:= LQry.FieldByName('jldwbm').AsString;
      try
        LQry.Close;
        LQry.CommandText:= 'select jldw from jldwdmb where jldwbm='+jldwbm;
        LQry.Open;
        if(LQry.RecordCount=1) then
        begin
          jldw:= LQry.FieldByName('jldw').AsString;
        end;
      finally
      end;
    DataSetNBXSXB.FieldByName('jldw').AsString:=jldw;
    end;
    DataSetNBXSXB.FieldByName('wzmc').AsString:=wzmc;
    DataSetNBXSXB.FieldByName('ggxh').AsString:=ggxh;
    DataSetNBXSXB.OnCalcFields:=DataSetNBXSXBCalcFields;
  finally
  end;
end;

weirongjia

不同的模块使用查找的时候用的都是这段代码
应该不是代码的问题
所有的模块的数据量基本都类似
前一段时间这个模块好好的  但是现在有问题了
是什么原因可能导致这种问题的