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
![dvubb 图片点击可在新窗口打开查看](skins/default/filetype/png.gif)
此主题相关图片如下:qq截图20180809103310.png
![dvubb 图片点击可在新窗口打开查看](UploadFile/2018-8/20188910402441739.png)
我想请问下用
SQLCommand循环新增20行应该怎么写。。