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

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

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

mayazql

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

加好友

发短信

等级：小狐帖子：373 积分：2605 威望：0 精华：0 注册：2012/10/29 8:32:00

错误：至少一个参数没有被指定值 发帖心情

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

代码如下：

If Tables("入库单子表").Current IsNot Nothing

If MessageBox.Show("是否删除?","请确认",MessageBoxButtons.YesNo,MessageBoxIcon.Question) = DialogResult.Yes Then

Tables("入库单子表").Current.Delete

End If

显示如下错误，测试发现错误出现在这句代码，但明细行也能删掉，不知道为什么报错

Tables("入库单子表").Current.Delete

此主题相关图片如下：1.png

[此贴子已经被作者于2016/8/1 20:17:53编辑过]

a2029460

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

加好友

发短信

等级：幼狐帖子：124 积分：1116 威望：0 精华：0 注册：2016/2/24 17:44:00

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

学习了

mayazql

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

加好友

发短信

等级：小狐帖子：373 积分：2605 威望：0 精华：0 注册：2012/10/29 8:32:00

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

搜索论坛里的帖子，也有类似的问题，有的是列名和表名不对，但我这个只有一个表名，也没有错，而且报错后还能执行删除动作。

有点奇怪

mayazql

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

加好友

发短信

等级：小狐帖子：373 积分：2605 威望：0 精华：0 注册：2012/10/29 8:32:00

Post By：2016/8/1 21:00:00 [只看该作者]

不是这里的代码的问题，是表：入库单子表的 datarowdeleting 事件中的代码：

'Dim Val As Integer

'Dim Val1 As Integer

'Val = DataTables("posub").SQLCompute("Sum(入库数量)","订单子表标识 = '"& e.DataRow("订单子表标识") &"' And 入库单子表标识 <> '" & e.DataRow("入库单子表标识") & "' " )

'Val1 = DataTables("posub").SQLCompute("Sum(入库数量)","申请单子表标识 = '"& e.DataRow("申请单子表标识") &"' And 入库单子表标识 <> '" & e.DataRow("入库单子表标识") & "' " )

'Dim dr As DataRow = DataTables("posub").find("订单子表标识 = '" & e.DataRow("订单子表标识") & "' ")

'Dim drpr As DataRow = DataTables("prsub").find("pr子表标识 = '" & e.DataRow("申请单子表标识") & "' ")

'If dr IsNot Nothing Then

' dr("入库数量") = Val

'End If

'If drpr IsNot Nothing Then

' drpr("到货数量") = Val1

'End If

注释掉后没有错误了，现在要找这段代码的错误在什么地方

Hyphen

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

加好友

发短信

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

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

msgbox("订单子表标识 = '"& e.DataRow("订单子表标识") &"' And 入库单子表标识 <> '" & e.DataRow("入库单子表标识") & "' ")

看看上面的2个SQLCompute和Find里的条件是怎样的

几个标识字段是字符还是数字型？

mayazql

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

加好友

发短信

等级：小狐帖子：373 积分：2605 威望：0 精华：0 注册：2012/10/29 8:32:00

Post By：2016/8/2 16:25:00 [只看该作者]

找到原因了。就是表名弄错了 --红色的表名

copy别的地方的代码，没有改彻底

Dim Val As Integer

Dim Val1 As Integer

Val = DataTables("inssub").SQLCompute("Sum(入库数量)","订单子表标识 = '"& e.DataRow("订单子表标识") &"' And 入库单子表标识 <> '" & e.DataRow("入库单子表标识") & "' " )

Val1 = DataTables("inssub").SQLCompute("Sum(入库数量)","申请单子表标识 = '"& e.DataRow("申请单子表标识") &"' And 入库单子表标识 <> '" & e.DataRow("入库单子表标识") & "' " )

Dim dr As DataRow = DataTables("posub").find("订单子表标识 = '" & e.DataRow("订单子表标识") & "' ")

Dim drpr As DataRow = DataTables("prsub").find("pr子表标识 = '" & e.DataRow("申请单子表标识") & "' ")

If dr IsNot Nothing Then

dr("入库数量") = Val

End If

If drpr IsNot Nothing Then

drpr("到货数量") = Val1

End If

[此贴子已经被作者于2016/8/2 16:25:58编辑过]

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

主题：错误：至少一个参数没有被指定值