怎样导出当前table而不是整个datatable? - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 怎样导出当前table而不是整个datatable?

共有1676人关注过本帖树形打印复制链接主题：怎样导出当前table而不是整个datatable?

huangxueyao

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

加好友

发短信

等级：一尾狐帖子：443 积分：3530 威望：0 精华：0 注册：2013/2/9 12:45:00

怎样导出当前table而不是整个datatable? 发帖心情

Post By：2017/2/12 13:51: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" '导出格式为Excel

ex.SourceTableName = "采购流水账" '指定导出表

ex.Fields = "日期,采购人,项目名称,费用分类,计价单位,单价,数量,小计,备注,报销状态,费用归属,加工厂结账" '按此顺序导出指定的字段

ex.filepath = dlg.FileName '指定目标文件

ex.Export() '开始导出

End If

以上代码是整个datatable的数据一起导出的

wyz20130512

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

加好友

发短信

等级：六尾狐帖子：1249 积分：9474 威望：0 精华：0 注册：2013/5/12 9:22:00

Post By：2017/2/12 15:03:00 [只看该作者]

设置筛选条件即可！

ex.Filter = "条件"

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/2/12 15:23: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" '导出格式为Excel

ex.SourceTableName = "采购流水账" '指定导出表

ex.Fields = "日期,采购人,项目名称,费用分类,计价单位,单价,数量,小计,备注,报销状态,费用归属,加工厂结账" '按此顺序导出指定的字段

ex.filepath = dlg.FileName '指定目标文件

ex.Filter = Tables("采购流水账").Filter

ex.Export() '开始导出

End If

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/2/12 15:25:00 [只看该作者]

方法二：直接saveExcel

Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
Tables("采购流水账").SaveExcel(dlg.FileName, "采购流水账")
End If

下一主题 >> << 上一主题

主题：怎样导出当前table而不是整个datatable?