如何将统计表1的数据利用filler 填充到主表 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何将统计表1的数据利用filler 填充到主表

共有4382人关注过本帖树形打印复制链接主题：如何将统计表1的数据利用filler 填充到主表

有点甜

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2013/10/27 20:59:00 [显示全部帖子]

例子没有统计表4，运行的时候出错。

什么问题？不能直接用filler？

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2013/10/27 21:33:00 [显示全部帖子]

在最后加一段代码。

''''''''''''''''''''''''''''''''''''''''

Dim scols As String = ""

For Each c As Col In Tables("统计表1").cols

If c.Caption.EndsWith("月") Then

scols += c.Name & ","

End If

Dim f As new Filler

f.SourceTable = DataTables("统计表1")

f.SourceCols = "统计部门,项目,报表名称,统计类型,数据统计项目," & scols & "合计"

f.DataTable = DataTables("主表")

f.DataCols = "统计部门,项目,报表名称,统计类型,数据统计项目,一月,二月,三月,四月,五月,六月,七月,八月,九月,十月,十一月,十二月,累计"

f.Fill()

主题：如何将统计表1的数据利用filler 填充到主表