Select Case e.Node.Name Case "男" Tables("总人事库").Filter = "[性别] = '男'" Case "女" Tables("总人事库").Filter = "[性别] = '女'"End Select