是这样吗:
..........
Dim ss As String=dt.GetComboListString("Group","")Dim s,tx As StringFor i As Integer = 1 To ss.split("|").length -1 tx = tx & ss.split("|")(i) & vbcrlfNextcmb.Value = tx