以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  book.AddDataTable 遍历循环问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=193715)
--  作者：252476276
--  发布时间：2024/10/7 11:07:00
--  book.AddDataTable 遍历循环问题
如帮助文档中的 基于后台数据生成报表 页中的多个数据表和关联

如果需要生成多个出库单，比如是某个库管员的，查询到有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
--  发布时间：2024/10/7 13:09:00
--  
自己顶
--  作者：有点蓝
--  发布时间：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\')\'")