Dim kz As String = "TextBox2,TextBox3,ComboBox3,TextBox1,ComboBox2,ComboBox4,TextBox11,NumericComboBox1,NumericComboBox2,NumericComboBox3,NumericComboBox4"
Dim sql As String = "Insert Into [库存商品] (货品编码,货品类型,计量单位,货品名称,规格型号,生产厂商,备注,库存上限,库存下限,入库参考价,出库参考价) "
sql = sql & " Values ('@$10','@$11','@$12','@$13','@$14','@$15','@$16',@$17,@$18,@$19,@$20)"
Dim i As Integer
For Each k As String In kz.split(",")
If .Controls(k).Value Is Nothing And i > 6 Then
sql = sql.Replace("@$" & i+10,"0")
Else
sql = sql.Replace("@$" & i+10,.Controls(k).Value)
End If
i += 1
Next
cmd.CommandText = sql
cmd.ExecuteNonQuery()
'判断是否重新添加记录,设置控件为空
If .Controls("CheckBox1").Checked = False Then
.Close()
Else
For Each k As String In kz.split(",")
.Controls(k).Value = ""
Next
谁能帮我解读下这段代码。特别是变量i的作用啊。好看不懂。
我是一只菜菜菜菜鸟、、、、、、、、、、、、