Foxtable(狐表)用户栏目专家坐堂 → 导出代码执行,但是表是空白的


  共有2092人关注过本帖树形打印复制链接

主题:导出代码执行,但是表是空白的

帅哥哟,离线,有人找我吗?
bailing
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:227 积分:2006 威望:0 精华:0 注册:2020/5/4 17:14:00
导出代码执行,但是表是空白的  发帖心情 Post By: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")

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/7/6 10:19:00 [只看该作者]

Exporter的帮助先仔细看一遍。http://www.foxtable.com/webhelp/topics/0683.htm

看示例四,重点:ex.Format = "Excel" '导出格式为Excel

选择文件用法看示例二

 回到顶部