参考:
http://www.foxtable.com/help/topics/0907.htm
其实很简单:
if e.Node.Level = 1 then
tables("XXX").Filter = "某列 = '" & e.Node.Text & "'"
End if