你可以合成多列,比如
Dim arys As List(Of String()) = DataTables("表A").GetValues("第一列|第二列", "第一列 is not null")
Dim str As String = ""
Dim s1, s2 As Integer
For Each s As String() In arys
If s(0).Length > s1 Then
s1 = s(0).Length
End If
If s(1).Length > s2 Then
s2 = s(1).Length
End If
Next
For Each s As String() In arys
str &= s(0).PadLeft(s1) & "/" & s(1).PadLeft(s2) & "|"
Next
e.Form.Controls("ComboBox1").ComboList = str.Trim("|")