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

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.foxdb

将飞老师的一个项目做了些修改想实现一个BOM树形展开在窗口1里

现在能实现双击父级显示子级

现在不知道如何判断子级已经打开就不再打开

各位老师可以试着双击窗口1里的父件a 和子件b 会不停的打开b和孙件c

麻烦看下

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

如果只展开到最上一级要怎么判断

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

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)

End If

'Node.Row("创建时间") = FolderInfo.CreationTime

'Node.Row("最后访问时间") = FolderInfo.LastAccessTime

'Node.Row("最后修改时间") = FolderInfo.LastWriteTime

'Node.Row("类型") = "文件夹"

End If

一个新问题

如何点击一个按钮将所有节点展开？

现在卡在这了

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1 (1).foxdb

主题：一个BOM展开的问题