主题：控件事件代码报错

 这样吧，用空格分隔。

Dim ccdd As WinForm.ComboBox = e.Form.Controls("出差地点")
Dim a As List(of String) = DataTables("地区信息").GetUniqueValues("","省级")
Dim s As List(of String) = DataTables("地区信息").GetUniqueValues("","市级")
Dim d As List(of String) = DataTables("地区信息").GetUniqueValues("","县级")
Dim data As String = ""
For Each q As String In a
    For Each w As String In s
        For Each r As String In d
            data += q & " " & w & " " & r & "|"
        Next
    Next
Next
ccdd.ComboList = data