主题：[求助][求助]有点蓝老师，单选框问题

甜老师，我这是字符列（列名理文），列值只有理科和文科两种，加在控件事件中用改这个代码是可以的，Tables("表A").Filter = "第三列 = '" & e.Sender.name.Replace("理","") & "'"

认认真真看啊

 

If e.Form.Controls("rdoYifu").Checked = True ' 如果付款状态选择了"已付"
    If Filter >"" Then
        Filter = Filter & " And "
    End If
    Filter = Filter & "已付款 = True"
End If
If e.Form.Controls("rdoWeifu").Checked = True ' 如果付款状态选择了"未付"
    If Filter >"" Then
        Filter = Filter & " And "
    End If
    Filter = Filter & "(已付款 = False Or 已付款 Is Null)"
End If

不会做具体实例发上来测试。

麻烦老师看看，我试试了很多次，谢谢

怎么老是服务器出现问题，传上去了吗

 

If e.Form.Controls("控件名1").Checked = True ' 如果付款状态选择了"已付"
    If Filter >"" Then
        Filter = Filter & " And "
    End If
    Filter = Filter & "列名 = '理科'"
End If
If e.Form.Controls("控件名2").Checked = True ' 如果付款状态选择了"已付"
    If Filter >"" Then
        Filter = Filter & " And "
    End If
    Filter = Filter & "列名 = '文科'"
End If

 

麻烦老师看看，我试试了很多次，谢谢

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

点击浏览该文件:学生成绩查询.zip

参考

 

Dim Filter As String = "1=1"
Dim v1 As String = e.form.controls("combobox1").text
If v1 > "" Then
    filter &= " And kssj >= " & v1
End If
Dim v2 As String = e.form.controls("combobox2").text
If v2 > "" Then
    filter &= " And kssj <= " & v2
End If
With e.Form.Controls("textbox1")
    If .Value IsNot Nothing Then
        Filter &= " and xm like '%" & .Value & "%'"
    End If
End With
With e.Form.Controls("textbox2")
    If .Value IsNot Nothing Then
        Filter &= " and kpjy like '%" & .Value & "%'"
    End If
End With
With e.Form.Controls("combobox3")
    If .Value IsNot Nothing Then
       
        Filter = Filter & " and bj = '" & .Value & "'"
    End If
End With

If e.Form.Controls("RadioButton1").Checked = True ' 如果付款状态选择了"已付"
    If Filter >"" Then
        Filter = Filter & " And "
    End If
    Filter = Filter & "lw = '理科'"
End If
If e.Form.Controls("RadioButton2").Checked = True ' 如果付款状态选择了"已付"
    If Filter >"" Then
        Filter = Filter & " And "
    End If
    Filter = Filter & "lw = '文科'"
End If

 

Tables("成绩查询表").Filter = Filter

非常感谢老师，祝新年快乐阖家幸福！

老师，我把考试时间用checkbox控件看看效果怎么，按老师写的单选框代码改了一个填上，只选一个时间是可以筛选的 ，选了两个以上时间就不行了，代码应该怎么改啊，谢谢老师！