一个BOM展开的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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
    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

主题：一个BOM展开的问题