- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 窗口查询表导出excel遇到的问题. (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=49413)
-- 发布时间：2014/4/17 15:50:00
-- 窗口查询表导出excel遇到的问题.
将窗口的查询结果导出为excel表时,
不是窗口中的可见行,
而是外部数据表中的所有行.
但要求是: 仅导出窗口表的可见行.
不知代码错在哪里?
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目h.zip |
-- 发布时间：2014/4/17 15:58:00
--
Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
\'Dim ex As New Exporter
\'ex.SourceTableName = "窗口4_Table1" \'指定导出表
\'ex.Format = "Excel"
\'ex.Filter = Tables("窗口4_Table1").Filter
\'ex.filepath = dlg.FileName \'指定目标文件
\'ex.Export() \'开始导出
Tables("窗口4_Table1").SaveExcel(dlg.FileName,"订单")
End If
-- 发布时间：2014/4/17 16:13:00
--
楼上是一种好方法，如果坚持用原来的方法，就这样：
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目h.rar |