主题：能帮我解决一下打印，或者导出EXCEL吗

一个窗口中有多个SQLtable，同时查询后，如何导出同一个EXCEL模板中 一个窗口，四个SQLtable，同时满足日期查询条件 此主题相关图片如下：201372822351930708.png 查询按钮代码 Dim Filter As String With e.Form.Controls("DateTimePicker1")     If .Value IsNot Nothing Then         If Filter >"" Then             Filter = Filter & " And "         End If         Filter = Filter & "日期 >= #" & .Value & "#"     End If End With With e.Form.Controls("DateTimePicker2")     If .Value IsNot Nothing Then         If Filter >"" Then             Filter = Filter & " And "         End If         Filter = Filter & "日期 <= #" & .Value & "#"     End If End With If Filter > "" Then     Tables("日报表_Table1").Filter = Filter     Tables("日报表_Table2").Filter = Filter     Tables("日报表_Table3").Filter = Filter     Tables("日报表_Table4").Filter = Filter End If If Filter > "" Then     Tables("日报表_Table1").DataTable.loadFilter = Filter     Tables("日报表_Table1").DataTable.load     Tables("日报表_Table2").DataTable.loadFilter = Filter     Tables("日报表_Table2").DataTable.load     Tables("日报表_Table3").DataTable.loadFilter = Filter     Tables("日报表_Table3").DataTable.load     Tables("日报表_Table4").DataTable.loadFilter = Filter     Tables("日报表_Table4").DataTable.load     End If 导出EXCEL代码 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() 或者可以直接打印 SQLtable的解决方法

Tables("窗口1_Table1").SaveExcel("C:\test.xls","订单")

你好Bin，这个语句Tables("日报表_Table1").SaveExcel("D:\test.xls","订单")

这个如果是关联表.可以参考Excel模板帮助的关联表圈套引用

那SQLtable形成的Table建立关联吗，如果能，如何建立

能帮我写个同一窗口四张无联系SQLtable，使用专业报表打印的代码吗

可以动态设置表关联 http://www.foxtable.com/help/topics/1942.htm