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("结束")