- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 关于导出问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=50114)
-- 发布时间：2014/4/29 16:11:00
-- 关于导出问题
想将附图中，下方表导出；代码如何写，
现在的代码是：
Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
Dim ex As New Exporter
ex.SourceTableName = "表" \'指定导出表
ex.filepath = dlg.FileName \'指定目标文件
ex.Export() \'开始导出
End If
请老师给予帮助。。。。。
此主题相关图片如下：360截图20140429160920500.jpg
-- 发布时间：2014/4/29 16:12:00
--
拷贝代码要拷贝全那
Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
Dim ex As New Exporter
ex.Format = "Excel"
ex.SourceTableName = "表" \'指定导出表
ex.filepath = dlg.FileName \'指定目标文件
ex.Export() \'开始导出
End If
-- 发布时间：2014/4/29 16:12:00
--
如果是窗口表,直接用 tables("窗口1_Table1").SaveExcel
-- 发布时间：2014/4/29 16:14:00
--
此主题相关图片如下：360截图20140429161216671.jpg
-- 发布时间：2014/4/29 16:16:00
--
直接这样写
e.Form.Controls("Table1").Table.SaveExcel("d:\\test.xls", "xxx")
-- 发布时间：2014/4/29 16:28:00
--
搞懂了
Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
e.Form.Controls("Table2").Table.SaveExcel(dlg.FileName, "订单") \'保存文件
End If
谢谢老师