DataTables("表A").Save() Dim g As new SQLCrossTableBuilder("统计表1", "表A") g.HGroups.AddDef("凭证ID") g.VGroups.AddDef("中心编码") g.Totals.AddDef("借方金额") g.Totals.AddDef("贷方金额") g.Totals.AddEXP("检查","IIf(贷方金额 Is null,0,贷方金额) - IIf(借方金额 is null,0,借方金额)") g.Build()