If e.Node.Name = "所属部门" Then
Tables("员工花名册").Filter = ""
Else
Tables("员工花名册").Filter = "所属部门 = '" & e.Node.Name & "'"
End If
加好友 
发短信
Post By：2014/2/7 8:28:00 [显示全部帖子]
