用cookie记录部门的值,然后从cookie那里获取,和username一样
http://www.foxtable.com/mobilehelp/scr/0042.htm
For Each dr As DataRow In DataTables("立项事件").Select("部门 = '" & xxx & "'","项目级别 Desc")