主题：[求助]关于动态列表项的生成（已解决）

控件的enter事件

Dim cr As Row = Tables("表a").Rows(0)
Dim str As String = ""
For i As Integer = 1 To cr("班组")
    str &= i & "|"
Next
e.sender.ComboList = str.trim("|")