以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何将统计表1的数据利用filler 填充到主表  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=41788)

--  作者:jianjingmaoyi
--  发布时间:2013/10/27 20:42:00
--  如何将统计表1的数据利用filler 填充到主表

例子如下:  统计表是交叉统计生成的

 

 

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:月份统计 - 副本.foxdb


--  作者:有点甜
--  发布时间:2013/10/27 20:59:00
--  
 例子没有统计表4,运行的时候出错。

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

--  作者:jianjingmaoyi
--  发布时间:2013/10/27 21:04:00
--  

不好意思 误删了

 

  我的意思是利用统计表4的表数据用交叉统计的方法生成统计表  并   filler 到 主表中

 

 

 下载信息  [文件大小:   下载次数: ]
点击浏览该文件:月份统计 - 副本.foxdb


--  作者:有点甜
--  发布时间: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
Next

Dim f As new Filler
f.SourceTable = DataTables("统计表1")
f.SourceCols = "统计部门,项目,报表名称,统计类型,数据统计项目," & scols & "合计"
f.DataTable = DataTables("主表")
f.DataCols = "统计部门,项目,报表名称,统计类型,数据统计项目,一月,二月,三月,四月,五月,六月,七月,八月,九月,十月,十一月,十二月,累计"
f.Fill()

--  作者:jianjingmaoyi
--  发布时间:2013/10/27 21:40:00
--  

可以了. 我同时也写出来了.不过还是要谢谢