If MsgBox("确认保存数据?",65,"提示") = 1 Then
Dim cmd As New SQLCommand
cmd.Conn e
Dim i As Integer
For i = 0 To 2
cmd.CommandText = "Insert Into {销售单} ([日期],[出库单号],[客户名称]) Values(?,?,?)"
cmd.Parameters.Add("@日期",2019-07-29)
cmd.Parameters.Add("@出库单号",i)
cmd.Parameters.Add("@客户名称","kumc")
Next
If cmd.ExecuteNonQuery = 1 Then '返回1表示增加成功
MessageBox.Show("销售单保存成功")
End If
End If
提示“...已添加相同的键”