我想在表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编辑过]
加好友 
发短信
Post By：2018/6/26 20:28:00 [显示全部帖子]
