用这个事件：
http://www.foxtable.com/help/topics/0886.htm
Select Case e.Node.Text
case “名称1”
Forms("某个窗口1").Open()
case “名称2”
Forms("某个窗口2").Open()
case “名称3”
Forms("某个窗口3").Open()
end select
加好友 
发短信
Post By：2013/3/21 9:03:00 [显示全部帖子]
