主题：同一列不同行的内容合并

 参考代码

Dim str As String = DataTables("表A").GetComboListString("第一列")
str = str.Replace("|", ",")
msgbox(str)