- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]报表如何生成？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=186533)
-- 发布时间：2023/5/9 16:14:00
-- [求助]报表如何生成？
如何把三个查询语句报表，放在一起？
Dim sqlGuid As String = Guid.NewGuid().ToString("N") \'定义Guid
此主题相关图片如下：qq截图20230509161309.png
Dim Book As New XLS.Book(ProjectPath & "Attachments\\综合统计数据分析报表.xlsx")
\'Dim Sheet1 As XLS.Sheet = Book.Sheets("Sheet1") \'引用工作簿的第一个工作表
Dim fl As String = ProjectPath & "Reports\\" & sqlGuid & ".xlsx"
Book.AddDataTable("分组", "LCTCM", sql3.ToString) \'添加父表
Book.AddDataTable("店型", "LCTCM", sql2.ToString) \'添加父表
Book.AddDataTable("区域", "LCTCM", sql1.ToString) \'添加父表
Book.AddRelation("分组", "区间日期", "店型", "区间日期") \'建立关联
\'Book.AddRelation("分组", "区间日期", "区域", "区间日期") \'建立关联
Book.Build() \'生成细节区
Book.Save(fl) \'保存工作簿
Dim Proc As New Process \'打开工作簿
Proc.File = fl
Proc.Start()
-- 发布时间：2023/5/9 16:31:00
--
只能有一个明细区，除非这3个表都是另外一个表的子表，可以使用这种：http://www.foxtable.com/webhelp/topics/1541.htm
或者考虑在多个sheet设置模板，生成后再另外使用代码合并到一个sheet里：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=97286&replyID=670470&skin=1
-- 发布时间：2023/5/9 17:03:00
--
一个表里面，怎么写多个子表？
-- 发布时间：2023/5/9 17:10:00
--
放在父表名称里面
<父表>
<子表1>
<子表2>
<子表3>
<父表>
-- 发布时间：2023/5/9 17:14:00
--
这个代码如何修改？ Dim Book As New XLS.Book(ProjectPath & "Attachments\\综合统计数据分析报表.xlsx") \'Dim Sheet1 As XLS.Sheet = Book.Sheets("Sheet1") \'引用工作簿的第一个工作表 Dim fl As String = ProjectPath & "Reports\\" & sqlGuid & ".xlsx" Book.AddDataTable("分组", "LCTCM", sql3.ToString) \'添加父表 Book.AddDataTable("店型", "LCTCM", sql2.ToString) \'添加父表 Book.AddDataTable("区域", "LCTCM", sql1.ToString) \'添加父表 Book.AddRelation("分组", "区间日期", "店型", "区间日期") \'建立关联 \'Book.AddRelation("分组", "区间日期", "区域", "区间日期") \'建立关联 Book.Build() \'生成细节区 Book.Save(fl) \'保存工作簿 Dim Proc As New Process \'打开工作簿 Proc.File = fl Proc.Start()
-- 发布时间：2023/5/9 17:26:00
--
http://www.foxtable.com/webhelp/topics/3233.htm
-- 发布时间：2023/5/9 17:31:00
--
就是没看懂这个帮助 一个表格模板里面，多个子表的代码怎么生成
-- 发布时间：2023/5/9 20:19:00
--
Dim Book As New XLS.Book(ProjectPath & "Attachments\\出库单.xls")
Dim fl As String = ProjectPath & "Reports\\出库单.xls"
book.AddDataTable("父表","数据源名称","Select * from {父表} where 出库单编号= \'CK-20030726001\'") \'添加父表
book.AddDataTable("子表1","数据源名称","Select * from {子表1} where 出库单编号= \'CK-20030726001\'") \'添加子表
book.AddDataTable("子表2","数据源名称","Select * from {子表2} where 出库单编号= \'CK-20030726001\'") \'添加子表
book.AddRelation("父表","出库单编号","子表1","出库单编号") \'建立关联
book.AddRelation("父表","出库单编号","子表2","出库单编号") \'建立关联
Book.Build() \'生成细节区
Book.Save(fl) \'保存工作簿
Dim Proc As New Process \'打开工作簿
Proc.File = fl
Proc.Start()
-- 发布时间：2023/5/10 10:17:00
--
模板这样写，这个打印出来是空白的，子表里面是正常有数据的
此主题相关图片如下：qq截图20230510101537.png
[此贴子已经被作者于2023/5/10 10:18:02编辑过]
-- 发布时间：2023/5/10 10:18:00
--
请上传实例测试