我想针对V42I表内複选的列一併执行"up_42I_m_y"这个程序,代码如下
但会报错
详细错误信息:
已经加入含有相同索引键的项目。
请问我该怎麽修正问题呢?
Dim mnum As Long
Dim mcase_no As String
Dim mngnm As String
Dim filter As String
Dim mposi As Integer
Dim mqty1 As Integer
Dim mqty2 As Integer
Dim cmd As New SQLCommand
With Tables("V42I")
If .TopPosition > -1 Then '如果选定区域包括数据行
For i As Integer = .TopPosition To .BottomPosition
mcase_no = Tables("V42I").Current("case_no")
cmd.CommandText = "up_42I_m_y" '指定存储过程名
cmd.StoredProcedure = True '表示CommandText内容不是标准的SQL语句,而是存储过程名
cmd.Parameters.Add("@case_no", mcase_no)
cmd.Parameters.Add("@userid" , User.Name)
cmd.ExecuteNonQuery
cmd.Commit()
Next
End If
End With