以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  错误：至少一个参数没有被指定值  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=88372)
--  作者：mayazql
--  发布时间：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
End If

显示如下错误，测试发现错误出现在这句代码，但明细行也能删掉，不知道为什么报错
 Tables("入库单子表").Current.Delete


图片点击可在新窗口打开查看此主题相关图片如下：1.png
图片点击可在新窗口打开查看

[此贴子已经被作者于2016/8/1 20:17:53编辑过]
--  作者：a2029460
--  发布时间：2016/8/1 19:27:00
--  
学习了
--  作者：mayazql
--  发布时间：2016/8/1 19:30:00
--  
搜索论坛里的帖子，也有类似的问题，有的是列名和表名不对，但我这个只有一个表名，也没有错，而且报错后还能执行删除动作。
有点奇怪
--  作者：mayazql
--  发布时间：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
--  发布时间：2016/8/2 10:40:00
--  
msgbox("订单子表标识 = \'"& e.DataRow("订单子表标识") &"\' And 入库单子表标识 <> \'" & e.DataRow("入库单子表标识") & "\' ")
看看上面的2个SQLCompute和Find里的条件是怎样的

几个标识字段是字符还是数字型？
--  作者：mayazql
--  发布时间：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编辑过]