[求助]数据提取汇总问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

下载信息 [文件大小：下载次数： ]
点击浏览该文件:资料订单汇总.rar

统计汇总数据提取不全，只填充了最后一个单位的，前面六个单位的没填充，不知道代码问题出在哪里？请指教。谢谢！
图片点击可在新窗口打开查看

此主题相关图片如下：汇总统计结果.png

下载信息 [文件大小：下载次数： ]
点击浏览该文件:资料订单汇总.zip

要是我选择这么干。

'''

Dim dws() As String = {"梁平中学","红旗中学","梁平一中","实中双桂","屏锦中学","袁驿中学","福禄中学"}

Dim jb As New SQLJoinTableBuilder("查询表1","成绩库")

jb.AddCols("年级","学科","大袋40份 as " & dws(0) & "_大袋40份","大袋30份 as " & dws(0) & "_大袋30份","小袋5份 as " & dws(0) & "_小袋5份","[大袋40份] * 40 + [大袋30份] * 30 + [小袋5份] * 5 as " & dws(0) & "_合计")

jb.Filter = "年级='2018' and 单位='" & dws(0) & "'"

Dim d As fxDataSource = jb.BuildDataSource()

For i As Integer = 1 To dws.Length - 1

Dim jb1 As New SQLJoinTableBuilder("查询表1","成绩库")

jb1.AddCols("年级","学科","大袋40份 as " & dws(i) & "_大袋40份","大袋30份 as " & dws(i) & "_大袋30份","小袋5份 as " & dws(i) & "_小袋5份","[大袋40份] * 40 + [大袋30份] * 30 + [小袋5份] * 5 as " & dws(i) & "_合计")

jb1.Filter = "年级='2018' and 单位='" & dws(i) & "'"

Dim d1 As fxDataSource = jb1.BuildDataSource()

Dim Cols As String = "年级|学科" '这个更容易维护(也即值可以保存于数据库中)

d.Combine(Cols.split("|"),d1,Cols.split("|"))

d.Show("查询表1")

Tables("查询表1").AutoSizeCols

MainTable = Tables("查询表1")

谢谢！

如果下面还想增加经办人、联系电话、分管领导、分管领导电话行呢？使汇总表更完善，请指教。谢谢！
图片点击可在新窗口打开查看

此主题相关图片如下：汇总统计结果1.png

新增记录，合并单元格

新增记录、合并单元格我还没经历过，请指教。谢谢！

我的版本低了，打不开此文件。麻烦你转成低版本。谢谢！

回6楼，如果是输出execl，需要手工填充数据：http://www.foxtable.com/webhelp/topics/1147.htm，合并参考：http://www.foxtable.com/webhelp/topics/1153.htm

回7楼，购买升级服务，或者就看3楼的代码

在输出execl前，统计汇总生成时就填充出来。请指教，谢谢！

foxtable内部表格没有横向合并单元格的功能

主题：[求助]数据提取汇总问题