[求助]Export函数（已解决） - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]Export函数（已解决）

共有1861人关注过本帖树形打印复制链接主题：[求助]Export函数（已解决）

yyzlxc

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：七尾狐帖子：1530 积分：10633 威望：0 精华：0 注册：2008/9/24 11:16:00

[求助]Export函数（已解决） 发帖心情

Post By：2016/12/23 9:52:00 [显示全部帖子]

下面代码黄色标记在导出“工具清点明细”时，重建mdb文件，使mdb文件中的其他表全部丢失，有什么办法，只删除mdb文件中的指定表后，再导出该表。或者将指定表清空（不是删除表），再导出该表。请各位老师指教。谢谢！！

If DataTables.Contains("工具清点明细") = True

Dim ex As New Exporter

ex.SourceTableName = "工具清点明细"

'ex.FilePath = _SCLJ

ex.FilePath = "\\127.0.0.1\QDXT$\手持终端\手持终端" & jwq & ".mdb"

ex.Filter = "清点日期 = #" & rq1 & "# And 清点单位 = '"& jwq &"'" '导出条件

If FileSys.FileExists(ex.FilePath) Then '如果目标文件已经存在

FileSys.DeleteFile(ex.FilePath) '则删除之

End If

ex.Export()

End If

[此贴子已经被作者于2016/12/23 11:52:09编辑过]

yyzlxc

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：七尾狐帖子：1530 积分：10633 威望：0 精华：0 注册：2008/9/24 11:16:00

Post By：2016/12/23 10:41:00 [显示全部帖子]

谢谢蓝老师的指教，一定要增加数据源才可以删除外部表吗？我原来打算通过文件路径来删除表的，有没有办法？还请老师指教，谢谢！！

yyzlxc

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：七尾狐帖子：1530 积分：10633 威望：0 精华：0 注册：2008/9/24 11:16:00

Post By：2016/12/23 11:52:00 [显示全部帖子]

知道了，谢谢蓝老师！！

主题：[求助]Export函数（已解决）