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

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()