中间计量表是子表，我想生成当前所有加载页的数据报表，但以下代码会把所有的后台数据都生成报表，请问老师是什么问题
Systemready = False
DataTables("中间计量表").loadTop = ""
DataTables("中间计量表").loadpage = 0
DataTables("中间计量表").load
Systemready = True
Dim str = DataTables("计量汇总").SQLGetComboListString("计量期次", DataTables("计量汇总").LoadFilter)
str = str.replace("|", "','")
DataTables("中间计量表").LoadFilter = "计量期次 in ('" & str & "')"
DataTables("中间计量表").LoadTop = ""
DataTables("中间计量表").LoadPage = 0
DataTables("中间计量表").Load
Dim Book As New XLS.Book(ProjectPath & "Attachments\分项工程中期计量支付表.xlsx")
Dim fl As String = ProjectPath & "Reports\分项工程中期计量支付表.xlsx"
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = fl
Proc.Start()
报表：
此主题相关图片如下：2222.png
加好友 
发短信
Post By：2018/12/11 12:43:00 [只看该作者]
