str2 = "insert into 凭证记录(科目代码,日期,凭证号,摘要,总账科目,明细科目,借方金额,贷方金额,备注) values(@科目代码,@日期,@凭证号,@摘要,@总账科目,@明细科目,@借方金额,@贷方金额,@备注)"
mycom = New SqlCommand(str2, con)
num = DataGridView4.RowCount - 1
For row = 0 To num Step 1
mycom.Parameters.Add(New SqlParameter("@科目代码", SqlDbType.NVarChar))
mycom.Parameters.Add(New SqlParameter("@日期", SqlDbType.NVarChar))
mycom.Parameters.Add(New SqlParameter("@凭证号", SqlDbType.NVarChar))
mycom.Parameters.Add(New SqlParameter("@摘要", SqlDbType.NVarChar))
mycom.Parameters.Add(New SqlParameter("@总账科目", SqlDbType.NVarChar))
mycom.Parameters.Add(New SqlParameter("@明细科目", SqlDbType.NVarChar))
mycom.Parameters.Add(New SqlParameter("@借方金额", SqlDbType.NVarChar))
mycom.Parameters.Add(New SqlParameter("@贷方金额", SqlDbType.NVarChar))
mycom.Parameters.Add(New SqlParameter("@备注", SqlDbType.NVarChar))
mycom.Parameters("@科目代码").Value = DataGridView4.Rows(row).Cells(0).Value
mycom.Parameters("@日期").Value = DataGridView4.Rows(row).Cells(1).Value
mycom.Parameters("@凭证号").Value = DataGridView4.Rows(row).Cells(2).Value
mycom.Parameters("@摘要").Value = DataGridView4.Rows(row).Cells(3).Value
mycom.Parameters("@总账科目").Value = DataGridView4.Rows(row).Cells(4).Value
mycom.Parameters("@明细科目").Value = DataGridView4.Rows(row).Cells(5).Value
mycom.Parameters("@借方金额").Value = DataGridView4.Rows(row).Cells(6).Value
mycom.Parameters("@贷方金额").Value = DataGridView4.Rows(row).Cells(7).Value
mycom.Parameters("@备注").Value = DataGridView4.Rows(row).Cells(8).Value
mycom.ExecuteNonQuery()
Next row
怎么弄循环
我构造了一个循环,结果出现
变量名 '@科目代码' 已声明。变量名在批查询或存储过程内部必须唯一。