选定第1期的时候可以正确生成报表,先第2期的时候却是生成空表,不知道什么原因,求老师指点
“征地报表”按钮代码:
DataTables("S征地明细").LoadFilter = "项目名称 = '" & Tables("S征地计量统计表").current("项目名称") & "'"
DataTables("S征地明细").LoadFilter = " 县区= '" & Tables("S征地计量统计表").current("县区") & "'"
DataTables("S征地明细").LoadFilter = "第几期结算 = '" & Tables("S征地计量统计表").current("第几期结算") & "'"
DataTables("S征地明细").Load
Dim Book As New XLS.Book(ProjectPath & "Attachments\征地补偿明细表_报表2.xls")
Dim fl As String = ProjectPath & "Reports\征地补偿明细表_报表2.xls"
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = fl
Proc.Start()
此主题相关图片如下:qq图片20171223205342.png