主题：打印报表代码问题

这个意思？

 

Dim str = DataTables("变更申请单").SQLGetComboListString("项目名称+变更编号", DataTables("变更申请单").LoadFilter)
str = str.replace("|", "','")
DataTables("申请费用表").LoadFilter = "项目名称+变更编号 in ('" & str & "')"
msgbox(DataTables("申请费用表").LoadFilter)
DataTables("申请费用表").LoadTop = ""
DataTables("申请费用表").LoadPage = 0
DataTables("申请费用表").Load

Dim Book As New XLS.Book(ProjectPath & "Attachments\变更台账2.xlsx")
Dim fl As String = ProjectPath & "Reports\变更台账2.xlsx"
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = fl
Proc.Start()

改成，如果还有问题，具体事例发上来测试。

 

Dim str = DataTables("变更申请单").SQLGetComboListString("项目名称+变更编号")
str = str.replace("|", "','")
DataTables("申请费用表").LoadFilter = "项目名称+变更编号 in ('" & str & "')"
msgbox(DataTables("申请费用表").LoadFilter)
DataTables("申请费用表").LoadTop = ""
DataTables("申请费用表").LoadPage = 0
DataTables("申请费用表").Load

Dim Book As New XLS.Book(ProjectPath & "Attachments\变更台账2.xlsx")
Dim fl As String = ProjectPath & "Reports\变更台账2.xlsx"
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = fl
Proc.Start()

回复5楼，2楼的代码绝对没问题，请做个实例发上来测试。