If Filter > "" Then
If e.Form.Controls("在会成员").checked = True Then
Tables("人事资料总览").Filter = Filter & " and 是否退会 = false"
End If
'If e.Form.Controls("已退会").checked = True Then
'Tables("人事资料总览").Filter = Filter & " and 是否退会 = true"
'End If
If e.Form.Controls("全部成员").checked = True Then
Tables("人事资料总览").Filter = Filter
End If
End If