主题：内容提取求助

导入以后，循环每一行备注，增加行，如代码

For Each dr As DataRow In DataTables("表A").Select("第十列 is not null")
    Dim ary() As String = dr("第十列").split(",")
    For Each s As String In ary
        Dim ndr As DataRow = DataTables("表A").addnew
        Dim a() As String = s.split("*")
        ndr("第三列") = a(0)
        ndr("第四列") = a(1)
        ndr("第五列") = dr("第五列")
    Next
Next