主题：多个字段 多列值填充 如何有效对应

Dim t1 As WinForm.TextBox = e.Form.Controls("TextBox7")

Dim tt1 As WinForm.ComboBox = e.Form.Controls("ComboBox1")

Dim tt2 As WinForm.ComboBox = e.Form.Controls("ComboBox4")

Dim tt3 As WinForm.ComboBox = e.Form.Controls("ComboBox15")

Dim Products As List(Of String)

Products = DataTables("词典表").GetValues("值","类别='球镜'")

Dim Products1 As List(Of String)

Products1 = DataTables("词典表").GetValues("值","类别='柱镜'")

For Each Product As String In Products

    For Each Product1 As String In Products1

        Dim cmd As new SQLCommand

        cmd.C

        cmd.CommandText = "Insert Into 镜片物料 (初始库存, 品牌, 特性,规格,球镜,柱镜) Values(?,?,?,?,?,?)"

        cmd.Parameters.Add("@初始库存",0)

        cmd.Parameters.Add("@品牌",tt1.Text)

        cmd.Parameters.Add("@特性",tt2.Text)

        cmd.Parameters.Add("@规格",tt3.Text)

        cmd.Parameters.Add("@球镜",Product)

        cmd.Parameters.Add("@柱镜",Product1)

        cmd.ExecuteNonQuery

    Next

Next

MessageBox.Show("结束")