主题：[求助]组合框

直接在afterLoad事件写也可以

 

Dim cate() As String = {"combobox1", "combobox2", "combobox3"}
Dim xll As New SQLCommand
Dim xl As DataTable
xll.ConnectionName = "管理"
xll.CommandText = "SELECT DISTINCT 学历 Fr om {列表项目}"
xl = xll.ExecuteReader
Dim str As String = xl.GetComboListString("学历")
For i As Integer = 0 To cate.length - 1
    Dim cbo = e.form.controls(cate(i))
    cbo.ComboList = str
Next

 

 汗，你要看懂代码，不会做，就用5楼。