根据表A数据表用模板生成Excel报表 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 根据表A数据表用模板生成Excel报表

共有3076人关注过本帖树形打印复制链接主题：根据表A数据表用模板生成Excel报表

有点蓝

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

加好友

发短信

等级：超级版主帖子：111422 积分：567186 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2024/6/23 20:43:00 [显示全部帖子]

先生成一个临时表绑定窗口表控件，然后生成报表数据，最后根据表控件直接输出即可

Dim dtb As New DataTableBuilder("统计")
dtb.AddDef("类别", GetType(String), 32)
dtb.AddDef("规格及数量", GetType(String), 255)
Tables("窗口1_table1").DataSource = dtb.BuildDataSource()

for each lb as string in datatables("表A").getvalues("类别")

dim r as row = Tables("窗口1_table1").addnew

r("类别") = lb

dim s1 as string

for each gg as string in datatables("表A").getvalues("规格","类别='" & lb & "'")

s1 = s1 & "," & gg & "/" & datatables("表A").compute("sum(数量)","类别='" & lb & "' and 规格 ='" & gg & "'")

r("规格及数量") = s1.trim(",")

有点蓝

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

加好友

发短信

等级：超级版主帖子：111422 积分：567186 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2024/6/24 15:01:00 [显示全部帖子]

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=150626

有点蓝

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

加好友

发短信

等级：超级版主帖子：111422 积分：567186 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2024/6/26 8:35:00 [显示全部帖子]

2楼就有对应的用法呀

for each gg as string in datatables("表A").getvalues("规格","类别='" & lb & "'")

http://www.foxtable.com/webhelp/topics/2747.htm

有点蓝

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

加好友

发短信

等级：超级版主帖子：111422 积分：567186 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2024/6/26 15:14:00 [显示全部帖子]

1楼要的效果不就是这样的吗？规格的A和类别的A不是一回事吧

此主题相关图片如下：1.png

有点蓝

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

加好友

发短信

等级：超级版主帖子：111422 积分：567186 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2024/6/27 10:06:00 [显示全部帖子]

现在代码生成的是什么效果，什么地方不对，截图说明

有点蓝

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

加好友

发短信

等级：超级版主帖子：111422 积分：567186 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2024/6/28 8:59:00 [显示全部帖子]

贴出使用的完整代码

有点蓝

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

加好友

发短信

等级：超级版主帖子：111422 积分：567186 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2024/6/28 12:03:00 [显示全部帖子]

……

For Each lb As String In dt1.getvalues("类别")

s1 = ""

Dim r As Row = Tables("装箱单打印_table1").addnew

r("类别") = lb

……

有点蓝

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

加好友

发短信

等级：超级版主帖子：111422 积分：567186 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2024/6/28 13:33:00 [显示全部帖子]

每个类别都要清空s1变量值，重新合并数据。不然就会一直合并之前类别的内容

下一主题 >> << 上一主题

主题：根据表A数据表用模板生成Excel报表