Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.CommandText = "Se lect {main_proj}.年度,单位编号,单位名称,{main_proj}.部门编号,部门名称,{main_proj}.项目编号,项目名称,[项目类型_类编号],[项目类型_类名称],[项目类型_款编号],[项目类型_款名称],[项目类型_项编号],[项目类型_项名称],[功能分类_类编号],[功能分类_类名称],[功能分类_款编号],[功能分类_款名称],[功能分类_项编号],[功能分类_项名称],明细项目编号,明细项目名称,[经济分类_类编号],[经济分类_类名称],[经济分类_款编号],[经济分类_款名称],政府采购,政府购买服务,财政拨款,上级拨款,其他收入,上年结余,预算类型 From {de_proj} Inner JOIN {main_proj} ON {main_proj}.[项目编号] = {de_proj}.[项目编号]"
dt = cmd.ExecuteReader()
Dim g1 As New CrossTableBuilder("统计表1", dt)
g1.HGroups.AddDef("年度")
g1.HGroups.AddDef("单位编号")
g1.HGroups.AddDef("单位名称")
g1.HGroups.AddDef("部门编号")
g1.HGroups.AddDef("部门名称")
g1.HGroups.AddDef("项目编号")
g1.HGroups.AddDef("项目名称")
g1.HGroups.AddDef("项目类型_类编号")
g1.HGroups.AddDef("项目类型_类名称")
g1.HGroups.AddDef("项目类型_款编号")
g1.HGroups.AddDef("项目类型_款名称")
g1.HGroups.AddDef("项目类型_项编号")
g1.HGroups.AddDef("项目类型_项名称")
g1.HGroups.AddDef("功能分类_类编号")
g1.HGroups.AddDef("项目类型_类名称")
g1.HGroups.AddDef("功能分类_款编号")
g1.HGroups.AddDef("功能分类_款名称")
g1.HGroups.AddDef("功能分类_项编号")
g1.HGroups.AddDef("功能分类_项名称")
g1.HGroups.AddDef("明细项目编号")
g1.HGroups.AddDef("明细项目名称")
g1.HGroups.AddDef("经济分类_类编号")
g1.HGroups.AddDef("经济分类_类名称")
g1.HGroups.AddDef("经济分类_款编号")
g1.HGroups.AddDef("经济分类_款名称")
g1.HGroups.AddDef("政府采购")
g1.HGroups.AddDef("政府购买服务")
g1.VGroups.AddDef("预算类型")
g1.Totals.AddDef("财政拨款", "财政拨款")
g1.Totals.AddDef("上级拨款", "上级拨款")
g1.Totals.AddDef("其他收入", "其他收入")
g1.Totals.AddDef("上年结余", "上年结余")
g1.HorizontalTotal = True
g1.Build()
Dim g2 As New GroupTableBuilder("统计表2", DataTables("zcmx"))
g2.Groups.AddDef("明细项目编号")
g2.Totals.AddDef("财政拨款","财政拨款支出")
g2.Totals.AddDef("上级拨款","上级拨款支出")
g2.Totals.AddDef("其他收入","其他收入支出")
g2.Totals.AddDef("上年结余","上年结余支出")
g2.Build()
Dim dt1 As fxDataSource=g1.BuildDataSource()
Dim dt2 As fxDataSource= g2.BuildDataSource()
dt1.Combine("明细项目编号",dt2," 明细项目编号")
dt1.Show("统计表1")
[此贴子已经被作者于2022/1/13 16:21:32编辑过]
加好友 
发短信
Post By：2022/1/13 12:30:00 [只看该作者]
此主题相关图片如下：错误.jpg