- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]导出查询后的结果 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=56343)
-- 发布时间：2014/9/3 14:28: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.Format = "Excel" \'导出格式为Excel
ex.Fields = "发货日期,车号,到站,规格,材质,长度件数,吨位,实重,区号,单位名称,备注" \'指定导出字段
ex.Filter =Tables("钢厂发货").Filter \'指定导出条件
ex.Export() \'开始导出
messagebox.show("成功导出数据")
End If
-- 发布时间：2014/9/3 14:29:00
--
代码没有错啊.出现什么问题?
-- 发布时间：2014/9/3 14:31:00
--
呃，代码没有问题啊。
-- 发布时间：2014/9/3 14:38:00
--
.NET Framework 版本：2.0.50727.3053
Foxtable 版本：2014.9.2.1
错误所在事件：
详细错误信息：
至少一个参数没有被指定值。
-- 发布时间：2014/9/3 14:39:00
--
ex.Fields = "发货日期,车号,到站,规格,材质,长度件数,吨位,实重,区号,单位名称,备注"
某个字段名称错了.
-- 发布时间：2014/9/3 14:54:00
--
改了，没提示错，但导出的还是数据库里的全部的数据
-- 发布时间：2014/9/3 14:55:00
--
以下是引用weijun在2014-9-3 14:54:00的发言：
改了，没提示错，但导出的还是数据库里的全部的数据
那就是你设置的筛选不正确，有可能你是对窗口的副本表进行筛选了。
ex.Filter =Tables("窗口1_Table1").Filter \'指定导出条件
-- 发布时间：2014/9/3 15:17:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理系统.rar |
请老师看下 钢厂发货---查询后导出
-- 发布时间：2014/9/3 15:25:00
--
测试什么问题都没啊
-- 发布时间：2014/9/3 15:35:00
--
查询到站汉阳的只有2条记录结果后导出，导出后有3条记录，把不是站汉阳的也一起导出了。