主题：双击目录树节点，如何使对应表的焦点对应到相关行上去

If e.Node.Level = 1 then
    Dim Value()As String
    Value = e.Node.FullPath.Split("\")
    Dim flt As String
    flt = "[合同号] = '" & Value(0) & "' And [订单号] = '" & Value(1) & "'"
     Dim r As Integer
    r = Tables("xxx").FindRow(flt, 0, True )
    if r >0 then
        Tables("XXX").Position = r
    End if
End if