'遍历一下就知道了
Dim lststr As String = DataTables("数据表").GetComboListString("省市")For Each str As String In lststr.Split("|") Dim dr As DataRow = DataTables("测试表").AddNew dr("省市") = strNext