Foxtable(狐表)用户栏目专家坐堂 → book.AddDataTable 遍历循环问题


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

主题:book.AddDataTable 遍历循环问题

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


加好友 发短信
等级:婴狐 帖子:38 积分:407 威望:0 精华:0 注册:2022/9/13 10:03:00
book.AddDataTable 遍历循环问题  发帖心情 Post By:2024/10/7 11:07:00 [只看该作者]

如帮助文档中的 基于后台数据生成报表 页中的多个数据表和关联

如果需要生成多个出库单,比如是某个库管员的,查询到有10条出库单

如何将这10个出库单都显示在excel中

Dim Book As New XLS.Book(ProjectPath & "Attachments\出库单.xls")
Dim
fl As String = ProjectPath & "Reports\出库单.xls"
book
.AddDataTable("出库","数据源名称","Se lect * from {出库} where 库管员= 'XXXX'") '添加父表

'这里应该获取到10个出库单编号,然后遍历增加10个单子的出库明细

'这里应该如何添加代码,build之后,可以显示

CK001

   1、

   2、

   3、

库管员 :xxxx


CK002

   1、

   2、

库管员:xxxxx 

book.AddDataTable("出库明细","数据源名称","Se lect * from {出库明细} where 出库单编号= 'CK-20030726001'") '添加子表
book
.AddRelation("出库","出库单编号","出库明细","出库单编号") '建立关联
Book
.Build() '生成细节区
Book
.Save(fl) '保存工作簿
Dim
Proc As New Process '打开工作簿
Proc
.File = fl
Proc
.Start()


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


加好友 发短信
等级:婴狐 帖子:38 积分:407 威望:0 精华:0 注册:2022/9/13 10:03:00
  发帖心情 Post By:2024/10/7 13:09:00 [只看该作者]

自己顶

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


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

book.AddDataTable("出库","数据源名称","Se lect * from {出库} where 库管员= 'XXXX'"'添加父表
book.AddDataTable("出库明细","数据源名称","Se lect * from {出库明细} where 出库单编号 in (Se lect 出库单编号 from {出库} where 库管员= 'XXXX')'")

 回到顶部