我想在表A的窗口1中自动添加ComboBox控件,
要求是依据“检验项目”列的内容,每个检验项目横向增加3个ComboBox控件,而且控件名称以此命名为ComboBox1,ComboBox2,以此类推。
此主题相关图片如下:qq图片20180626203221.png
此主题相关图片如下:截图20180626202333.png
个人测试的结果只能是一个项目横向添加一个控件,代码如何修改呢,请大神指教,谢谢
原始代码如下
Select Case e.DataCol.Name
Case "检验项目"
If Forms("窗口1").Opened Then
Dim nms As List(of String) = DataTables("表A").GetUniqueValues("","检验项目")
Forms("窗口1").ClearControl()
Dim cnt As Integer
For Each nm As String In nms
Dim chk As WinForm.Combobox
chk = Forms("窗口1").CreateControl("lable1", ControlTypeEnum.Combobox)
' chk.Text = nm
chk.Left = 10
chk.Top = cnt * 25 + 10
Forms("窗口1").AddControl(chk)
cnt = cnt + 1
Next
End If
End Select
[此贴子已经被作者于2018/6/26 20:33:49编辑过]