Dim pr As Row = Tables(e.form.Name & "_主表").current
If pr IsNot Nothing Then
'--BOM完整性检查
Dim drs As List(of DataRow) = DataTables(e.form.Name & "_明细").Select("订单编号 = '" & pr("订单编号") & "'" )
If drs.count > 0 Then
Dim cmd As new SQLCommand
cmd.ConnectionName = Mydata
For Each dr As DataRow In drs
cmd.CommandText = "exec usp_bom_chk10 ?,? output"
cmd.Parameters.Add("@产品编码",dr("产品编码")) '输入参数
cmd.Parameters.Add("@返回值", "", True) '输出参数
cmd.ExecuteNonQuery
dr("BOM检查") = cmd.Parameters("@返回值")
msgbox(110)
Next
End If
End If
上述代码循环第一次可以正确显示110,后面就出错了
错误提示为"已添加了具有相同键的项。"
请问下要如何处理,谢谢!
加好友 
发短信
Post By：2020/4/7 16:09:00 [只看该作者]
