For Each dr As DataRow In DataTables("test2").Select("产品编号='" & node.Row("产品编号") & "'")
''If dr("级码")<>node.Row("级码") AndAlso dr("级码").split(".").length=node.Row("级码").split(".").length+1 Then
Dim flagin As Boolean = False
Dim jm As String = node.Row("级码")
If jm.Length - jm.Replace(".","").Length <> 1 Then Continue For
If dr("级码")=node.Row("级码") & ".1" Then
'' MessageBox.show(dr("级码") & " 《》" & node.Row("级码"))
For Each cnd As object In RowBase.Node.Nodes
If cnd.Row("级码") = dr("级码") Then
flagin = True
Exit For
End If
Next
If flagin = False Then
Node = TblBase.Rows.InsertNode(TblBase.RowSel + RowBase.Node.Nodes.Length + 1, RowBase.Node.Level + 1)
For Each c As Col In Tables("t").Cols
Node.Row(c.name) = dr(c.name)
Next
End If
'Node.Row("创建时间") = FolderInfo.CreationTime
'Node.Row("最后访问时间") = FolderInfo.LastAccessTime
'Node.Row("最后修改时间") = FolderInfo.LastWriteTime
'Node.Row("类型") = "文件夹"
End If
Next
加好友 
发短信
Post By：2017/5/16 20:33:00 [显示全部帖子]
