[求助]生成收支相抵的净值表（交叉表）（已解决） - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以下代码分别生成租金收入和租金支出交叉表，如何生成收支相抵的净值表（收入为正值，支出为负值）。请各位老师指教，谢谢！！

租金收入按钮代码

Dim k As New CrossTableBuilder("租金收入",DataTables("设备借用2"))

k.HGroups.AddDef("设备名称")

k.VGroups.AddDef("产权单位")

k.Totals.AddDef("当月租金", "当月租金")

k.Totals.AddDef("租金累计", "租金累计")

k.HorizontalTotal = True

k.VerticalTotal = True

k.Build()

MainTable = Tables("租金收入")

Tables("租金收入").AutoSizeCols()

With Tables("租金收入")

CurrentTable.Cols("合计_当月租金").Move(1)

CurrentTable.Cols("合计_租金累计").Move(2)

End With

租金支出按钮代码

Dim k As New CrossTableBuilder("租金支出",DataTables("设备借用2"))

k.HGroups.AddDef("设备名称")

k.VGroups.AddDef("使用单位")

k.Totals.AddDef("当月租金", "当月租金")

k.Totals.AddDef("租金累计", "租金累计")

k.HorizontalTotal = True

k.VerticalTotal = True

k.Filter = "使用单位 <> '设备仓库'"

k.Build()

MainTable = Tables("租金支出")

Tables("租金支出").AutoSizeCols()

With Tables("租金支出")

CurrentTable.Cols("合计_当月租金").Move(1)

CurrentTable.Cols("合计_租金累计").Move(2)

End With

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目38.foxdb

[此贴子已经被作者于2017/11/29 10:17:27编辑过]

主题：[求助]生成收支相抵的净值表（交叉表）（已解决）