刷新按钮代码：

Dim po As Integer = Tables("流程制度表").Position  \'记住当前选定的行位置

Tables("流程制度表").Filter = ""                 
DataTables("流程制度表").LoadChildren("流程制度明细表")   \'每次加载产品列表后,能同步加载明细

Tables("流程制度表").Position = po  \'刷新后仍定为到该行

问题在于选择左侧目录树节点时，表中只显示节点对应的行，所以刷新后，定位行而不是之前选择的行，

NodeMouseClick事件代码：

Dim Value() As String
Value = e.Node.FullPath.Split("\\")
Select Case e.Node.Level
    Case 0
        Tables("流程制度表").Filter ="[部门名称] = \'" & Value(0) & "\'"
    Case 1
        Tables("流程制度表").Filter ="[部门名称] = \'" & Value(0) & "\' And [分类] = \'" & Value(1) & "\'"
    Case 2
        Tables("流程制度表").Filter ="[部门名称] = \'" & Value(0) & "\' And [分类] = \'" & Value(1) & "\'And [流程或制度] = \'" & Value(2) & "\'"
End Select

请问，怎么实现所要的功能呢？？

好的，谢谢。