使用内部表有误，“Book.Build() '生成细节区”有误，如何解决
Dim Book As New XLS.Book(ProjectPath & "Attachments\交房清单.xls")
Dim fl As String = ProjectPath & "Reports\交房清单.xls"
book.AddDataTable("业务",cmd.connectionname,"Select 单位名称 fr om {业务} where 合同编号= '" & tjt.current("合同编号") & "' and 单据类型='销售合同'" & _filter) '添加父表
book.AddDataTable("交房清单",cmd.connectionname,"Select 交房清单,数量或金额 fr om {交房清单} where 合同编号= '" & tjt.current("合同编号") & "'" & _filter) '添加子表
book.AddRelation("业务","合同编号","交房清单","合同编号") '建立关联
MessageBox.Show(3)
Book.Build() '生成细节区
MessageBox.Show(4)
Book.Save(fl) '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = fl
Proc.Start()
加好友 
发短信
Post By：2019/6/1 10:35:00 [只看该作者]
