Select Case e.Node.Level
Case 0
Filter ="一级 = '" & one & "'"
http://www.foxtable.com/webhelp/scr/1284.htm