专家坐堂-如何同时刷新加载树Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

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

Else

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

End If

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

在窗口左侧加载树NodeMouseDoubleClick设置代码：

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) & "\'"

Case 3

Filter = "[项目名称] = \'" & dr(0) & "\' And [县] = \'" & dr(1) & "\' And [乡] = \'" & dr(2) & "\' And [村] = \'" & dr(3) & "\'"

Case 4

Filter = "[项目名称] = \'" & dr(0) & "\' And [县] = \'" & dr(1) & "\' And [乡] = \'" & dr(2) & "\' And [村] = \'" & dr(3) & "\' And [屯] = \'" & dr(4) & "\'"

Case 5

Filter = "[项目名称] = \'" & dr(0) & "\' And [县] = \'" & dr(1) & "\' And [乡] = \'" & dr(2) & "\' And [村] = \'" & dr(3) & "\' And [屯] = \'" & dr(4) & "\'And [组] = \'" & dr(5) & "\'"

End Select

End If

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

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

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

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

Else

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

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

End If

\'Tables("S征地记录").filter = filter（注释代码）

在窗口刷新按钮设置了代码：

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

用同一用户名在不同电脑登录进行操作，如何才能实现：本电脑点刷新后，能加载另一电脑用户输入的数据，同时也重新根据该用户名能加载的所有数据重新生成加载树？请教老师

如图片示：右侧增加了第4行，左侧刷新后加载了第4行，但如何使加载树也能同时出现‘平安村”

此主题相关图片如下：0(j0374p09gw$qqcg4c108r.png