此主题相关图片如下：树表操作.jpg

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:5实验模块目录树表(可用) 5 - 副本.table

在左边目录树操作增加、减少、上移、下移、等操作右边的表的编码及数据也跟着变化如何写代码

 不要做实时的变化，你弄一个保存按钮，最后生成一下就好。

 参考代码

Dim dt As DataTable = DataTables("表A")
dt.DataRows.Clear
Dim dic As New Dictionary(of Integer, Integer)
Dim prevLevel As Integer = 0
For Each nd As WinForm.TreeNode In e.Form.Controls("TreeView1").AllNodes
    If nd.Level = 0 AndAlso dic.count > 0 Then
        Dim temp = dic(0)
        dic.Clear
        dic.Add(0, temp)
    End If
   
    If dic.ContainsKey(nd.Level) = False Then
        dic.Add(nd.Level, 1)
    Else
        dic(nd.Level) = dic(nd.Level) + 1
    End If
    For i As Integer = nd.level + 1 To prevLevel
        dic(i) = 0
    Next
   
    prevLevel = nd.Level
    Dim ndr As DataRow = dt.AddNew
    Dim str As String = ""
    For i As Integer = 0 To nd.Level
        str &= dic(i) & "."
    Next
    ndr("第一列") = str.TrimEnd(".")
    ndr("第二列") = nd.Text
Next

Dim tv As WinForm.TreeView = e.Form.Controls("TreeView1")
If tv.SelectedNode IsNot Nothing Then
   
    Dim dr As Row=Tables("主窗口_总表").AddNew()    \'
    Dim bh As String = tv.SelectedNode.Name
   
    Dim max As String
    Dim idx As Integer
    max = Tables("主窗口_总表").Compute("Max(编号)","编号 like \'" & bh & "%\' and len(编号) = " & len(bh) + 3)

    If max <> "" Then \'如果存在最大编号
        idx = CInt(max.Substring(bh.length,3)) + 1
    Else
        idx = 1 \'否则顺序号等于1
    End If
   
    dr("编号") = bh & Format(idx,"000")
    dr("名称")= tv.SelectedNode.text
    Dim nd As WinForm.TreeNode = tv.SelectedNode.Nodes.Add(dr("编号"),"新节点")
End If
DataTables("总表").Save

Index + = 1
Dim idx As Integer
Dim tv As WinForm.TreeView = e.Form.Controls("TreeView1")
If tv.SelectedNode IsNot Nothing Then
    Dim nd As WinForm.TreeNode = tv.SelectedNode.Nodes.Add(Index,"新节点")
    tv.SelectedNode = nd
    \'tv.Select
    \'tv.BeginEdit
    Dim dr As Row=Tables("主窗口_总表").AddNew()    \'
    Dim dr0 As  String=dr("编号")
    \'msgbox(e.node.level &"级:编码"& e.node.name & "显示名称:"& e.node.text) \'***显示节点显示名称
    Dim bh As String =tv.SelectedNode.ParentNode.Name \'当前节点父编码
    If dr0.StartsWith(bh) =False \'如果单据编号前缀不符
        Dim max As String       
        Dim x As Integer=len(bh)+3
        dr("数量")= bh \'测试用
        dr("备注")=x \'测试用
        max = Tables("主窗口_总表").Compute("Max(编号)","len(编号) = " & x)
        dr("名称")=max
        If max <>""Then \'如果存在最大编号       
         idx = CInt(max.Substring(x-3,3)) + 1\'获得最大编号的后三位顺序号,并加1           
        Else           
            idx = 1 \'否则顺序号等于1
        End If
    End If
    dr("编号") = bh & Format(idx,"000")
    dr("类别")= tv.SelectedNode.text \'测试用
End If
DataTables("总表").Save

‘现在这样可以正常使用了，不过我点击新增的节点没有筛选出来，只有重新加载窗体才行，要怎么处理

谢谢甜，你的代码可以实现了