在窗口的“导出明细表”设如下代码,想导出上面记录表里关联的所有数据,现在只能导出第一条记录,请问老师是怎么回事?Systemready = False
DataTables("S征地明细").loadTop = ""
DataTables("S征地明细").loadpage = 0
DataTables("S征地明细").load
Systemready = True
Dim str = DataTables("S征地记录").SQLGetComboListString("协议书编号", DataTables("S征地记录").LoadFilter)
str = str.replace("|", "','")
DataTables("S征地明细").LoadFilter = "协议书编号 in ('" & str & "')"
DataTables("S征地明细").LoadTop = ""
DataTables("S征地明细").LoadPage = 0
DataTables("S征地明细").Load
Dim Book As New XLS.Book(ProjectPath & "Attachments\征地明细表.xls")
Dim fl As String = ProjectPath & "Reports\征地明细表.xls"
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = fl
Proc.Start()