''' For Each dr As DataRow In DataTables("表C").Select("第七列 is not null") For Each s As String In dr("第七列").split(new Char() {"、", "。"}) Dim nr As DataRow = DataTables("表B").find（"第一列 = '" & s & "'"） If nr Is Nothing Then nr = DataTables("表B").addnew nr("第一列") = s End If Next Next
加好友 
发短信
Post By：2017/12/6 18:14:00 [显示全部帖子]
