主题：“单选框”问题

 

“单选框”问题

 

     在项目例子中希望解决“单选框”问题。“学生查询”窗体中的‘学生状态’解释：‘全部’，指有学籍的全部学生，包括了在校生、实习生、休学生。在’全部’状态下，也就是“单选框”不发生作用时，全部学生都是被查询对象。‘在校’指在校生，（过滤了实习生和休学生），在‘在校’状态下，只有在校生（非实习生和休学生）是被查询对象。‘实习’指在‘实习’列中标有实习生的学生。在‘实习’状态下，只有实习生是被查询对象。‘休学’同实习生一个意思。要达到以上要求，请问怎样改代码？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目20.zip

出错，请再改一改，谢了！

全部代码：

'全部:
If e.Sender.Checked = True
    Tables("学生信息").Filter = ""
End If
'在校:
If e.Sender.Checked = True
    Tables("学生信息").Filter = "休学 is null and 实习 is null"
End If
'实习:
If e.Sender.Checked = True
    Tables("学生信息").Filter = "实习 is not null"
End If
'休学:
If e.Sender.Checked = True
    Tables("学生信息").Filter = "休学 is not null"
End If

If Filter > "" Then
    Tables("学生信息").Filter = Filter
End If

此主题相关图片如下：出错.jpg

“已付款”列已经删除。见附件
此主题相关图片如下：截图01.jpg

谢谢狐爸！