【结帖】数据自动填充问题**

sunwbh

procedure TGCYFKCT.DSBYFGCWCQKCalcFields(DataSet: TDataSet);
var
lQuery : TQuery;
begin
  lQuery := TQuery.Create(Nil);
  try
    lStr1 := DSBYFGCWCQK.DataSet.FieldByName('HTH').AsString;
    lStr2 := DSBYFGCWCQK.DataSet.FieldByName('DEBH').AsString;
    lQuery.ConnectionString := 'DATABASEURL=Biz:SXLFRDGCSXLFRDGC.Database';
    lQuery.CommandText := ' select Sum(SL2) as ZKGZBQLJWC from YFGCWCQKBB where HTH = '''+lStr1+''' and DEBH = '''+lStr2+''' ';
    lQuery.Open;
    DSBYFGCWCQK.DataSet.FieldByName('ZKGZBQLJWCGCL').AsInteger:= lQuery.FieldByName('ZKGZBQLJWC').AsInteger;
  finally
    lQuery.Free;
  end;
end;
看看有什么问题吗? 怎么不能实现自动将 10和10 加起来添到自开工至本期累计完成工程量

sunwbh

急，帮忙看看啊，顶下

lixy

用计算字段的oncalcfield事件，不要用dataset的

sunwbh

那样的话，该怎么写代码啊用来返回所得到的值

shangxy

把你计算的结果对参数value赋值即可。

sunwbh

哦，那该怎么设过滤条件啊？ 我没设过滤条件，运行出现了这样的错误
select sum(SL2)  AS ZKGZLJWCGCL from YFGCWCQKBB where HTH = ' ' and DEBH = ' '  IS not a valid BCD value , 该怎么弄啊 ，求救

shangxy

那你检查一下你的计算字段的类型与你要给他付的值的类型是否一致呢？过滤条件怎么设置，这个要根据你的需求来定了，

sunwbh

现在过滤这些都没有问题了,但是，这个字段的值应该是计算出来了,因为别的和这个字段关联的字段值显示出来了并且是对的,但是这个字段的值为什么不在表上显示呢?代码如下：
procedure TYFFKXX.FIELD_YFKCSJJ_ZKGYLLJWCGCLCalcField(Field: TBizField; var Value: Variant);
var
lQuery : TQuery;
begin
  lQuery := TQuery.Create(Nil);
  try
     lStr1 := Field.DataSet.FieldByName('HTH').AsString;
     lStr2 := Field.DataSet.FieldByName('DEBH').AsString;
    lQuery.ConnectionString := 'DATABASEURL=Biz:\SXLFRDGC\SXLFRDGC.Database';
    lQuery.CommandText := ' select Sum(SL2) as ZKGYLLJWCGCL from YFGCWCQKBB where HTH = '''+lStr1+''' and  DEBH = '''+lStr2+''' ';
     lQuery.Open;
    Value :=  lQuery.FieldByName('ZKGYLLJWCGCL').AsInteger;

  finally
    lQuery.Free;
  end;
end;

shangxy

代码跟踪Value有值了么？表格文档上如果用的是这个计算字段就应该显示出来了.

lixy

x3为了完成计算字段等特性，把数据集的这个事件可能给屏蔽了。
推荐楼主用计算字段了。