后台导出数据的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

在窗口的“导出明细表”设如下代码，想导出上面记录表里关联的所有数据，现在只能导出第一条记录，请问老师是怎么回事？

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

主题：后台导出数据的问题