- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 导出代码执行，但是表是空白的 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=151862)
-- 发布时间：2020/7/6 10:15:00
-- 导出代码执行，但是表是空白的
代码如下，能执行到对话框弹出1，但是表里没有数据，另外想咨询一下路径能否用户自己选择？谢谢老师
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:新建文本文档.txt |
If e.Form.Controls("要更新的表").value = "" Then
MessageBox.show("请选择需要导出的表模板")
Return
End If
Dim s As String = e.Form.Controls("要更新的表").value
Dim dtb As DataTable = DataTables(s)
Dim ex As New Exporter
ex.SourceTableName = dtb.Name \'指定导出表
ex.FilePath = "C:\\Users\\6141\\Desktop\\datu\\订单.xls"
ex.Filter = "[月份] = \'202005\'" \'指定导出条件
ex.NewTableName = Date.now & "导出" & dtb.name
ex.Export() \'开始导出
MessageBox.show("1")
-- 发布时间：2020/7/6 10:19:00
--
Exporter的帮助先仔细看一遍。http://www.foxtable.com/webhelp/topics/0683.htm
看示例四，重点：ex.Format = "Excel" \'导出格式为Excel
选择文件用法看示例二