If Forms("窗口1").Opened Then
Dim nms As List(of String) = DataTables("表A").GetValues("检验项目")
Forms("窗口1").ClearControl()
Dim cnt As Integer
For i As Integer = 0 To nms.Count - 1 Step 3
For j As Integer = 0 To 2
If i+j < nms.Count
Dim chk As WinForm.Combobox = Forms("窗口1").CreateControl("Combobox" & (i + j), ControlTypeEnum.Combobox)
chk.Width = 160
chk.Text = nms(i+j)
chk.Left = 10 + j * 180
chk.Top = cnt * 25 + 10
Forms("窗口1").AddControl(chk)
Else
Exit For
End If
Next
cnt = cnt + 1
Next
End If