当前代码如下:
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
Dim dr As Row = Tables("镜片物料").AddNew()
dr("初始库存")=0
dr("品牌")=tt1.Text
dr("特性")=tt2.Text
dr("规格")=tt3.Text
dr("球镜")=Product
For Each Product1 As String In Products1
dr("柱镜")=Product1
Next
dr.Save
Next
运行效果如下:
想实现球镜ABC三个规格 柱镜 123 三个规格
生成数据如下:
A 1
A 2
A 3
B 1
B 2
B 3
图上数据只有
A 1
B 1
C 1
麻烦老师修正一下 谢谢!