Tables("收支总账窗体_szzzTable").GrandTotal = True
Dim g1 As New SQLGroupTableBuilder("收支总账统计表","收支交易流水")
Dim g2 As New SQLGroupTableBuilder("收支总账统计表2","应付交易流水")
Dim g3 As New SQLGroupTableBuilder("收支总账统计表3","应收交易流水")
g1.C
g2.C
g3.C
Dim dtb1 As fxDataSource
Dim dtb2 As fxDataSource
Dim dtb3 As fxDataSource
If hztj.Value="按记账日期" Then
g1.Groups.AddDef("记账日期",DateGroupEnum.None)
g1.Totals.AddDef("收入金额","收入金额")
g1.Totals.AddDef("支出金额","支出金额")
g1.Totals.Addexp("收支差额","收入金额- 支出金额")
g1.Filter = "[记账日期] >= #" & StartDate & "# And [记账日期] <= #" & EndDate & "# "
g1.Subtotal = True
g1.SubtotalLevel = 0 '只生成总计行
g1.Build()
elseif dtb1 = g1.BuildDataSource()
g2.Groups.AddDef("记账日期",DateGroupEnum.None)
g2.Totals.AddDef("应付金额","应付金额")
g2.Totals.AddDef("已付金额","已付金额")
g2.Totals.Addexp(","应付金额- 已付金额")
g2.Filter = "[记账日期] >= #" & StartDate & "# And [记账日期] <= #" & EndDate & "# "
g2.Subtotal = True
g2.SubtotalLevel = 0 '只生成总计行
g2.Build()
dtb2 =g2.BuildDataSource()
else
g3.Groups.AddDef("记账日期",DateGroupEnum.None)
g3.Totals.AddDef("应收金额","应收金额")
g3.Totals.AddDef("已收金额","已收金额")
g3.Totals.Addexp("应收差额","应收金额- 已收金额")
g3.Filter = "[记账日期] >= #" & StartDate & "# And [记账日期] <= #" & EndDate & "# "
g3.Subtotal = True
g3.SubtotalLevel = 0 '只生成总计行
g3.Build()
dtb3 = g3.BuildDataSource()
dtb1.Combine("记账日期",dtb2,"记账日期") '将销售统计数据组合到进货统计数据
dtb1.Combine("记账日期",dtb3,"记账日期") '将退货统计数据组合到进货统计数据
MainTable = Tables("收支总账统计表")
Tables("收支总账窗体_szzzTable").DataSource =dtb1
Tables("收支总账窗体_szzzTable").SetColVisibleWidth("记账日期|150|收入金额|150|支出金额|150|收支差额|150|应付金额|150|已付金额|150|应付差额|150|应收金额|150|已收金额|150|应收差额|150")
这段代码哪有问题呢？运行后提示“”应付差额"重复
[此贴子已经被作者于2020/3/23 17:46:00编辑过]
加好友 
发短信
Post By：2020/3/23 9:21:00 [只看该作者]
此主题相关图片如下：截图05.jpg
