主题：窗口下加载树，子表不能与父表同步加载，表格形式的加载树又可以。

Tables("S征地记录").Filter属于筛选，不会影响已经加载的数据

还是不行
此主题相关图片如下：qq图片20171030215205.png

重新贴出完整代码

完整代码

是，修改这段

 

Dim Filter As String事件

If User.Name = "开发者" Or User.Name = "管理员" Then

    DataTables("S征地记录").LoadFilter = Filter

Else

    DataTables("S征地记录").LoadFilter = "(乡 = '" & User.Name & "' or 县 = '" & User.Name & "' or 项目名称 = '" & User.Name & "') and " & Filter

End If

DataTables("S征地记录").Load()

修改后可以实行子表同步，但再加载时又出现”此行已从表中移除并且没有任何数据。BeginEdit() 将允许在此行中创建新数据“提示，需再刷新加载树，可是刷新后的加载树只保留刚加载过数据的节点。未加载数据的节点消失

Dim Filter As String = "1=1"

Dim dr = e.node.FullPath.split("\") '获取生成此节点的行
If e.Node.Text <> "显示所有行" Then
    Select Case e.Node.Level
        Case 0
            Filter = "[项目名称] = '" & dr(0) & "'"
        Case 1
            Filter = "[项目名称] = '" & dr(0) & "' And [县] = '" & dr(1) & "'"
        Case 2
            Filter = "[项目名称] = '" & dr(0) & "' And [县] = '" & dr(1) & "' And [乡] = '" & dr(2) & "'"
    End Select
End If
DataTables("S征地记录").save
If User.Name = "开发者" Or User.Name = "管理员" Then
    DataTables("S征地记录").RemoveFor(Filter)
    DataTables("S征地记录").AppendLoad(Filter)
Else
    DataTables("S征地记录").RemoveFor("(乡 = '" & User.Name & "' or 县 = '" & User.Name & "' or 项目名称 = '" & User.Name & "') and " & Filter)
    DataTables("S征地记录").AppendLoad("(乡 = '" & User.Name & "' or 县 = '" & User.Name & "' or 项目名称 = '" & User.Name & "') and " & Filter)
End If