主题：根据收入表和支出表，如何按项目统计收支流水账？

问题回复的质量，多数时候取决于你提问的质量。

自己的业务，自己才清楚，不要将别人当做自己，要别人的帮助，请尽量清晰描述问题，不要经常10多个回合下来，还没有摸到问题的边。

命令窗口执行：

Dim sql As String = "select 指标编号 As 项目,文件日期 As 日期,来文金额 As 收入,0 As 支出 From {来文} Union all select 来文编号 As 项目,文件日期 As 日期,发文金额 As 支出,0 As 收入 From {发文}"
Dim qry As new QueryBuilder
qry.TableName = "统计"
qry.SelectString = sql
qry.Build

Dim t As Table = Tables("统计")
Dim g As Subtotalgroup
t.SubtotalGroups.Clear()
t.GroupAboveData = False
t.TreeVisible = False
t.SpillNode = True

g = New Subtotalgroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "项目"
g.TotalOn = "收入,支出"
g.Caption = "{0} 小计"
t.SubtotalGroups.Add(g)

g = New Subtotalgroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "*"
g.TotalOn = "收入,支出"
g.Caption = "总计"
t.SubtotalGroups.Add(g)

t.Subtotal()

MainTable = Tables("统计")