专家坐堂-窗口中的副表导出EXCL报错Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  窗口中的副表导出EXCL报错  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=124457)

--  作者：weibu
--  发布时间：2018/9/6 15:30:00
--  窗口中的副表导出EXCL报错

Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter= "EXC.文件|*.xls" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
Dim ex As New Exporter
ex.SourceTableName = "盘点核销_Table2" \'指定导出表
ex.filepath = dlg.FileName \'指定目标文件
ex.Format = "Excel" \'导出格式为Excel
ex.Export() \'开始导出
End If

报错如何修改：确定存在有table2的属于窗口盘点核销

此主题相关图片如下：qq截图20180906153230.png

[此贴子已经被作者于2018/9/6 15:31:29编辑过]

--  作者：有点甜
--  发布时间：2018/9/6 15:41:00
--

Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter= "EXC.文件|*.xls" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
    Dim ex As New Exporter
    ex.SourceTableName = Tables("盘点核销_Table2").DataTable.name \'指定导出表
    ex.Filter = Tables("盘点核销_Table2").filter
    ex.filepath = dlg.FileName \'指定目标文件
    ex.Format = "Excel" \'导出格式为Excel
    ex.Export() \'开始导出
End If

或者

Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter= "EXC.文件|*.xls" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
    Tables("盘点核销_Table2").SaveExcel(dlg.FileName, "表A")
End If