| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 如何通过代码导出一个SQL语句生成的datatable (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=51756) |
| -- 作者：rjh4078 -- 发布时间：2014/6/2 21:48:00 -- 如何通过代码导出一个SQL语句生成的datatable 如题 |
| -- 作者：lihe60 -- 发布时间：2014/6/2 22:29:00 -- 把生成的表绑定到窗口中的表，然后就可以导出了。 |
| -- 作者：rjh4078 -- 发布时间：2014/6/3 9:10:00 -- 只是现在没有表可以绑定 因为这个表是通过计划代码自动生成 然后发邮件给相关人员的 |
| -- 作者：有点甜 -- 发布时间：2014/6/3 9:35:00 -- 以下是引用rjh4078在2014-6-3 9:10:00的发言：
只是现在没有表可以绑定 因为这个表是通过计划代码自动生成 然后发邮件给相关人员的
不能，只能到处生成后的表，建议生成一个临时表吧。
参考 http://www.foxtable.com/help/topics/0695.htm
[此贴子已经被作者于2014-6-3 9:34:49编辑过]
|
| -- 作者：rjh4078 -- 发布时间：2014/6/3 12:03:00 -- 话说就是要找这个 不知道用什么关键字 谢谢二位 |
| -- 作者：tongyong1969 -- 发布时间：2014/6/3 13:11:00 -- 我刚好做了一个模型，不知是否满足你的要求。建立查询语句表"查询语句"，里面有查询语句列设为"foxtable语句"、("查询事项")，建立一个窗口，建立一个表格设为table1，绑定表"查询语句"，建立button，单击事件如下，aaa是我使用的外部数据源： For Each dr As DataRow In DataTables("查询语句").DataRows \'查询语句 Tables("查询语句_Table1").Fill(dr("foxtable语句") ,"aaa", True) \'导出文件 If FileSys.FileExists("d:\\data\\"&dr("查询事项")&".xls") Then \'如果指定的文件存在 FileSys.DeleteFile("d:\\data\\"&dr("查询事项")&".xls",2,2) \'则彻底删除之 End If Dim ex As New Exporter ex.SourceTableName = "查询语句_Table1" \' 指定导出表 ex.FilePath = "d:\\data\\"&dr("查询事项")&".xls"\'指目标文件 ex.Format = "Excel" \'导出格式为Access 2007 ex.Export() \'开始导出 Next |