信息层上的数据集的字段编辑器,增加一个计算字段,实现计算字段的OnCalcField事件。
参考代码:
procedure TAXX.FIELD_A_JSZD1CalcField(Field: TBizField; var Value: Variant);
var
i : Integer;
lValue : String;
begin
//
for i := 0 to 3 do
lValue := lValue + Business.System.SysUtils.IntToStr(i) + ',';
Value := Business.System.StringUtils.Copy(lValue,1,Length(lValue) - 1);
end;
表格文档中增加那个计算字段就可以。