主题：怎样根据目录树的节点取值

参考：

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

其实只是最后面的代码变换一下：

Dim Filter As String

'参考上面的例子合成表达式
Dim wz As Integer = Tables("xxx").Find(Filter)

If wz  > "" Then

    Tables("xxx").Position = wz

End If