导出至少一个参数没有被指定值 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 导出至少一个参数没有被指定值

共有2219人关注过本帖树形打印复制链接主题：导出至少一个参数没有被指定值

huhu

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

加好友

发短信

等级：五尾狐帖子：1165 积分：8129 威望：0 精华：0 注册：2015/3/30 10:44:00

导出至少一个参数没有被指定值 发帖心情

Post By：2016/8/10 18:43:00 [只看该作者]

报错信息

.NET Framework 版本：2.0.50727.7905

Foxtable 版本：2016.6.26.1

错误所在事件：

详细错误信息：

至少一个参数没有被指定值。

导出按钮代码:

Dim r As Row = Tables("工单明细").Current

DataTables("扫描配货明细").LoadFilter = "收货单号 = '" & r("收货单号") & "' and (状态 = '生产结束扫描完成' or 状态 = '生成收货单')"

DataTables("扫描配货明细").Load

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 = "SN,生产订单号码工单行号,状态,入库方式" '指定导出字段

ex.Filter = "[收货单号] = '" & r("收货单号") & "' and ([状态] = '生产结束扫描完成' or [状态] = '生成收货单')" '指定导出条件

ex.Export() '开始导出

MessageBox.show("保存路径:" & dlg.filename,"导出成功",MessageBoxButtons.OK,MessageBoxIcon.Information)

End If

[此贴子已经被作者于2016/8/10 18:43:50编辑过]

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/8/10 19:46:00 [只看该作者]

提示很明显，你的列名写错了，或者是列名是表达式列。

huhu

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

加好友

发短信

等级：五尾狐帖子：1165 积分：8129 威望：0 精华：0 注册：2015/3/30 10:44:00

Post By：2016/8/12 9:45:00 [只看该作者]

检查了。列名都是对的，也没有表达式。

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/8/12 9:53:00 [只看该作者]

去看你sqlserver数据库，肯定是列名写错了。

去掉代码

ex.Filter = "[收货单号] = '" & r("收货单号") & "' and ([状态] = '生产结束扫描完成' or [状态] = '生成收货单')" '指定导出条件

加入代码

msgbbox("收货单号 = '" & r("收货单号") & "'")

huhu

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

加好友

发短信

等级：五尾狐帖子：1165 积分：8129 威望：0 精华：0 注册：2015/3/30 10:44:00

Post By：2016/8/13 9:50:00 [只看该作者]

Dim r As Row = Tables("工单明细").Current

DataTables("扫描配货明细").LoadFilter = "收货单号 = '" & r("收货单号") & "' "

DataTables("扫描配货明细").Load

msgbox("收货单号 = '" & r("收货单号") & "'")

怎么不是当前行的收货单号呢？

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

Hyphen

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

加好友

发短信

等级：狐神帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00

Post By：2016/8/13 10:01:00 [只看该作者]

窗口表是副本吧http://www.foxtable.com/webhelp/scr/1906.htm

huhu

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

加好友

发短信

等级：五尾狐帖子：1165 积分：8129 威望：0 精华：0 注册：2015/3/30 10:44:00

Post By：2016/8/13 10:14:00 [只看该作者]

确实是副本表。显示收货单号是对的，扫描配货明细加载的也是的对的。

代码改了还是报至少缺一个参数

Dim r As Row = Tables("库存管理界面_table7").Current

DataTables("扫描配货明细").LoadFilter = "收货单号 = '" & r("收货单号") & "' "

DataTables("扫描配货明细").Load

msgbox("收货单号 = '" & r("收货单号") & "'")

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 = "SN" '指定导出字段

ex.Filter = "[收货单号] = '" & r("收货单号") & "'" '指定导出条件

msgbox("收货单号 = '" & r("收货单号") & "'")

ex.Export() '开始导出

MessageBox.show("保存路径:" & dlg.filename,"导出成功",MessageBoxButtons.OK,MessageBoxIcon.Information)

End If

Hyphen

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

加好友

发短信

等级：狐神帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00

Post By：2016/8/13 10:24:00 [只看该作者]

提示全部都弹出来了吗，分别弹出什么值

"扫描配货明细"有没有"SN" 和[收货单号] 这2列

huhu

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

加好友

发短信

等级：五尾狐帖子：1165 积分：8129 威望：0 精华：0 注册：2015/3/30 10:44:00

Post By：2016/8/13 10:37:00 [只看该作者]

此主题相关图片如下：第一次.png

此主题相关图片如下：第二次.png

2次弹出的收货单号都是对的。当第二次弹出的时候，点击确定就提示至少一个参数未指定。

扫描配货明细表也是加载的这个收货单号的数据。

有SN列和收货单号列。

此主题相关图片如下：sn和收货单号.png

[此贴子已经被作者于2016/8/13 10:38:20编辑过]

Hyphen

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

加好友

发短信

等级：狐神帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00

Post By：2016/8/13 10:47:00 [只看该作者]

上个例子看看吧

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

总数 12 1 2 下一页

主题：导出至少一个参数没有被指定值