主题：[求助]树表操作

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

 

 参考代码

 

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

你说的没有筛选出来是什么意思？什么筛选。