【搞定】如何将计算字段的值保存到数据表里？**

sunwbh

代码如下：
procedure TYFGCFKXX.FIELD_YFGCFKZSJJ_ZBBYSHJEZJCalcField(Field: TBizField; var Value: Variant);
var
lQuery : TQuery;
begin
  lQuery := TQuery.Create(Nil);
  try
  lStr1 := Field.DataSet.FieldByName('HTBH').AsString;
  lStr3 := Field.DataSet.FieldByName('Year').AsString;
  lStr4 := Field.DataSet.FieldByName('Month').AsString;
  lQuery.ConnectionString := 'DATABASEURL=Biz:\SXLFRDGC\SXLFRDGC.Database';
  lQuery.CommandText := ' select Sum(ZBSHSL*ZBSHDJ) as ZBBYSHJEZJ from YFGCWCQKBB_2_1_ where HTBH = '''+lStr1+''' and Year = '''+lStr3+''' and Month = '''+lStr4+''' ';
  lQuery.Open;
  value := lQuery.FieldByName('ZBBYSHJEZJ').AsFloat;

  finally
    lQuery.Free;
  end;
end;

yancm

只有触发了自动填充的条件才能自动填充。也就是说对于新填数据这个自动填充可以及时修改。您说无效是指这些已经存在的记录吧。你新加一条记录看一下。

sunwbh

能填上了，我原来是光运行功能，在当前窗体里进行操作的，刚刚试了下走流程，结果走入流程就有了。我觉得在功能窗体里运行也是在新增记录阿，这有什么区别吗？

yancm

恩，在功能里面按新建按钮应该也是可以的。

sunwbh

哦，好吧，结帖
谢谢