- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 真的没辙了，关于多表导出EXCEL (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=38406)
-- 发布时间：2013/7/28 22:31:00
-- 真的没辙了，关于多表导出EXCEL
一个窗口中有多个SQLtable，同时查询后，如何导出同一个EXCEL模板中
一个窗口，四个SQLtable，同时满足日期查询条件
此主题相关图片如下：qq截图20130728223220.png
另外一个相关求助帖
[此贴子已经被作者于2013-7-28 22:35:55编辑过]
-- 发布时间：2013/7/28 22:31:00
--
查询按钮代码
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()
[此贴子已经被作者于2013-7-28 22:40:00编辑过]
-- 发布时间：2013/7/28 22:53:00
--
没得人帮帮忙啊，谢谢了
-- 发布时间：2013/7/29 8:23:00
--
看看这个是否能帮到你 http://www.foxtable.com/help/topics/0204.htm
-- 发布时间：2013/7/29 15:40:00
--
一个Excel模版文件可以有多个表，每个表一个模版。
也就是说你可以在一个模版文件中，设计四个模版，每个模版对应着一个表。
-- 发布时间：2013/7/29 15:41:00
--
以下是引用狐狸爸爸在2013-7-29 15:40:00的发言：
还能这么干,学习了.
一个Excel模版文件可以有多个表，每个表一个模版。
也就是说你可以在一个模版文件中，设计四个模版，每个模版对应着一个表。