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


  共有2227人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
huhu
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1165 积分:8129 威望:0 精华:0 注册:2015/3/30 10:44:00
  发帖心情 Post By:2016/8/12 9:45:00 [显示全部帖子]

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

 回到顶部
帅哥哟,离线,有人找我吗?
huhu
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
图片点击可在新窗口打开查看


 回到顶部
帅哥哟,离线,有人找我吗?
huhu
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

 回到顶部
帅哥哟,离线,有人找我吗?
huhu
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
huhu
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1165 积分:8129 威望:0 精华:0 注册:2015/3/30 10:44:00
  发帖心情 Post By:2016/8/13 11:12:00 [显示全部帖子]

能通过qq远程给我看一下吗?做例子好麻烦的,说不定单独做例子就是好的。
qq:312998569.
麻烦你了。

 回到顶部