Rss & SiteMap
Foxtable(狐表) http://www.foxtable.com
先获取单元格值,再通过split分隔开,然后每个值增加一行。
很简单:
Dim Multi As String = "ab|cd|ef"
Dim Values() As String
Values = Multi.split("|")
For Each value As String In values
Dim dr As DataRow = DataTables("表A").AddNew()
dr("第一列") = value
Next