主题：循环SQLCommand

If e.Values.Count > 1 Then
    Dim ddbh As String = Functions.Execute("bhsc")
    Dim cmd As New SQLCommand
    Dim dt1 As DataTable
    cmd.C
    bh = e.Values("编号")
Dim ev As Integer = e.Values("次数")
    For i As Integer = 1 To ev
        Dim ddmxbh As String = Functions.Execute("ddmxbh")
            cmd.CommandText = "Insert Into 订单明细表 (日期,编号,品名,订单明细编号,折扣,单价,订单编号) Values(?,?,?,?,?,?,?)"
            cmd.Parameters.Add("@日期",Date.now)
            cmd.Parameters.Add("@编号",bh)
            cmd.Parameters.Add("@品名",e.Values("品名"))
            cmd.Parameters.Add("@订单明细编号",ddmxbh)
            cmd.Parameters.Add("@折扣",e.Values("折扣"))
            cmd.Parameters.Add("@单价",e.Values("单价"))
            cmd.Parameters.Add("@订单编号",ddbh)
            cmd.ExecuteNonQuery
    Next
End If

此主题相关图片如下：qq截图20180809103310.png

我想请问下用SQLCommand循环新增20行应该怎么写。。

好吧知道了，  Dim cmd As New SQLCommand与cmd.c也要放到循环内。。

是的，要重新new一个对象。