如
Dim str As String = DataTables("表B").GetComboListString("第四列").Replace("|", ",")Dim ary As String() = str.Split(",")msgbox(ary.length)