专家坐堂-能帮我解决一下打印，或者导出EXCEL吗Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

一个窗口中有多个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的解决方法