“单选框”问题

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

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

点击浏览该文件:管理项目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

楼主要的是组合查询吧：

\'前面的代码

if e.Form.Controls("rdoYifu").Checked Then
    if Filter > "" then

      Filter = Filter & " And "

    End If

    Filter = Filter & "休学 is null and 实习 is null"

End if

if e.Form.Controls("rdoWeifu").Checked Then
     if Filter > "" then

            Filter = Filter & " And "

     End If

     Filter = Filter & "休学 is null and 实习 is Not null"

End if

if e.Form.Controls("rdoWeifu1").Checked Then
     if Filter > "" then

            Filter = Filter & " And "

     End If

     Filter = Filter & "休学 is not null and 实习 is null"

End if

\'后面的代码