主题：组合框

Dim s As String
For Each dt As DataTable In DataTables
    s + = dt.Name & "|"
Next
e.Sender.ComboList = s.Trim("|")