以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  用代码自动生成一个表格这个可以做,有没有可能有些列只生成但数据为空呢,比如这个表格,从”入账金额”列一直到最后一个列,数据都为空,这个可以实现吗  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=110231)

--  作者:lzw001
--  发布时间:2017/11/29 14:48:00
--  用代码自动生成一个表格这个可以做,有没有可能有些列只生成但数据为空呢,比如这个表格,从”入账金额”列一直到最后一个列,数据都为空,这个可以实现吗
用代码自动生成一个表格这个可以做,有没有可能有些列只生成但数据为空呢,比如这个表格,从”入账金额”列一直到最后一个列,数据都为空,这个可以实现吗

图片点击可在新窗口打开查看此主题相关图片如下:qq截图20171129144728.png
图片点击可在新窗口打开查看


--  作者:有点甜
--  发布时间:2017/11/29 15:09:00
--  

1、你用什么代码生成一个表格的?

 

2、你可以生成之后,循环对应的列,清空数据。


--  作者:lzw001
--  发布时间:2017/11/29 15:14:00
--  
就是在afteropenproject这里写生成表格代码的
--  作者:lzw001
--  发布时间:2017/11/29 15:15:00
--  
\'定义一个GroupTableBuilder,名称为"统计表1",对订单表进行统计.
Dim i As New GroupTableBuilder("生成表",DataTables("公司收入分配明细表"))
i.Groups.AddDef("负责人") \'根据产品分组
i.Groups.AddDef("收款时间") \'对数量进行统计
i.Groups.AddDef("摘要")
i.Groups.AddDef("类型") \'对数量进行统计
i.Groups.AddDef("客户名称")
i.Totals.AddDef("序号") \'对数量进行统计
i.Groups.AddDef("部门")
i.Groups.AddDef("合作渠道")
i.Totals.AddDef("下款金额")
i.Build \'生成统计表

--  作者:有点甜
--  发布时间:2017/11/29 15:17:00
--  

Dim t as table = Tables("生成表")

t.DataTable.ReplaceFor("下款金额", nothing)

t.DataTable.ReplaceFor("其它列名", nothing)


--  作者:lzw001
--  发布时间:2017/11/29 15:23:00
--  
这个是放在afteropenproject里面吗?就是等表格生成时执行
--  作者:有点甜
--  发布时间:2017/11/29 15:26:00
--  
是的,放在 i.build 的后面
--  作者:lzw001
--  发布时间:2017/11/29 15:35:00
--