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

现有收入表和支出表，收入表和来文表按照指标编号一对多进行关联，收入表和支出表中都包含项目，单位，金额列等。

现在需要根据收入表中的来文金额和支出表中的发文金额，分项目按日期生成收支明细账，并且在每一年都有年末总计行，如下图EXCEL设计的表格。

看了很多，就是无法实现。

这个功能在很多场合用的到，麻烦高手赐教。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:指标管理.table

如下图是按收入表和支出表中的"高龄老人补贴"这个项目统计出来的。

此主题相关图片如下：qq图片20131119100950.jpg

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

自己的业务，自己才清楚，不要将别人当做自己，要别人的帮助，请尽量清晰描述问题，不要经常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("统计")

执行上述代码后，没有支出数字，只有收入。

合并查询中收入和支出的位置错位了。

俺又马后炮了