主题：[原创] 华海仓库管理软件 v1.0 (狐表做的作业)

 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的作用啊。好看不懂。我是一只菜菜菜菜鸟、、、、、、、、、、、、

我看见最好的作品了

能帮我做个系统吗？可以查询销售和库存情况的，有偿求助啊！ 13610081496  Q:137282899

软件太实用了

請問  有源代碼嗎？....

值得 學習啊