主题：刷新后选定行不变，可以实现吗？

刷新按钮代码：

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

 

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

此主题相关图片如下：1.jpg


此主题相关图片如下：2.jpg

好的，谢谢。