主题：双击节点，选定应该节点所处的行

合成条件，然后再找，例如:

Dim Value()As String
Dim flt As String
Value = e.Node.FullPath.Split("\")
Select Case e.Node.Level
    Case 0
        flt ="[企业类别] = '" & Value(0) & "'"
    Case 1
        flt ="[企业类别] = '" & Value(0) & "' And [企业名称] = '" & Value(1) & "'"
End Select
Dim i As Integer = Tables("往来企业").FindRow(flt,0,True)
If i > 0 Then
   Tables("往来企业").Position = i
End If

参考：

http://www.foxtable.com/help/topics/0553.htm