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

参考

http://www.foxtable.com/webhelp/scr/1058.htm

认认真真看，有逻辑列啊

http://www.foxtable.com/webhelp/index.htm?page=1058.htm

认认真真看啊

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

参考

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

Dim Filter As String = "1=1"
Dim filter2 As String = ""
If e.Form.Controls("checkbox1").Checked = True
    Filter2 = Filter2 & " or kssj = '201809'"
End If
If e.Form.Controls("checkbox2").Checked = True
    Filter2 = Filter2 & " or kssj = '201810'"
End If

If e.Form.Controls("checkbox3").Checked = True
    Filter2 = Filter2 & " or kssj = '201811'"
End If

If filter2 > "" Then
    filter = filter & " and (" & filter2.SubString(3) & ")"
End If
If e.Form.Controls("选择理科").Checked = True
    If Filter >"" Then
        Filter = Filter & " And "
    End If
    Filter = Filter & "lw = '理科'"
End If
If e.Form.Controls("选择文科").Checked = True
    If Filter >"" Then
        Filter = Filter & " And "
    End If
    Filter = Filter & "lw = '文科'"
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

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

Dim t As Table = Tables("成绩查询表")
Dim str As String = ""
For i As Integer = t.TopPosition To t.BottomPosition
    str &= t.Rows(i)("xm") & ","
Next
msgbox(str.trim(","))