以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 用代码自动生成一个表格这个可以做,有没有可能有些列只生成但数据为空呢,比如这个表格,从”入账金额”列一直到最后一个列,数据都为空,这个可以实现吗 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=110231) |
-- 作者:lzw001 -- 发布时间:2017/11/29 14:48:00 -- 用代码自动生成一个表格这个可以做,有没有可能有些列只生成但数据为空呢,比如这个表格,从”入账金额”列一直到最后一个列,数据都为空,这个可以实现吗 用代码自动生成一个表格这个可以做,有没有可能有些列只生成但数据为空呢,比如这个表格,从”入账金额”列一直到最后一个列,数据都为空,这个可以实现吗 |
-- 作者:有点甜 -- 发布时间: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 -- 好 |