Foxtable(狐表)用户栏目专家坐堂 → [求助]报表如何生成?


  共有2173人关注过本帖树形打印复制链接

主题:[求助]报表如何生成?

帅哥哟,离线,有人找我吗?
YOU
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:391 积分:596 威望:0 精华:0 注册:2018/3/5 14:40:00
[求助]报表如何生成?  发帖心情 Post By: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()



 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107135 积分:544918 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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

 回到顶部
帅哥哟,离线,有人找我吗?
YOU
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:391 积分:596 威望:0 精华:0 注册:2018/3/5 14:40:00
  发帖心情 Post By:2023/5/9 17:03:00 [只看该作者]

一个表里面,怎么写多个子表?

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107135 积分:544918 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/5/9 17:10:00 [只看该作者]

放在父表名称里面

<父表>
<子表1>
<子表2>
<子表3>
<父表>

 回到顶部
帅哥哟,离线,有人找我吗?
YOU
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:391 积分:596 威望:0 精华:0 注册:2018/3/5 14:40:00
  发帖心情 Post By: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()

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107135 积分:544918 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/5/9 17:26:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
YOU
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:391 积分:596 威望:0 精华:0 注册:2018/3/5 14:40:00
  发帖心情 Post By:2023/5/9 17:31:00 [只看该作者]

就是没看懂这个帮助 一个表格模板里面,多个子表的代码怎么生成

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107135 积分:544918 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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()

 回到顶部
帅哥哟,离线,有人找我吗?
YOU
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:391 积分:596 威望:0 精华:0 注册:2018/3/5 14:40:00
  发帖心情 Post By:2023/5/10 10:17:00 [只看该作者]

模板这样写,这个打印出来是空白的,子表里面是正常有数据的

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

[此贴子已经被作者于2023/5/10 10:18:02编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107135 积分:544918 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/5/10 10:18:00 [只看该作者]

请上传实例测试

 回到顶部
总数 23 1 2 3 下一页