例子：

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

点击浏览该文件:高中期末成绩统计程序.rar

Dim tjs() As String = {"ComboBox1","ComboBox2","ComboBox3","ComboBox4","ComboBox5","ComboBox7"}
Dim sps() As String = {"\'","\'","\'","\'","\'"," "}
Dim c1 As String = e.Form.controls("ComboBox6")
Dim bjf() As String = {" = "," = "," = "," = "," = "," "& c1 &" "}
Dim fds() As String = {"单位","部别","年级","班","姓名","总分名次"}
Dim Filter As String
For i As Integer = 0 To tjs.length - 1
    If e.Form.Controls(tjs(i)).Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & fds(i) & bjf(i) & sps(i) & e.Form.controls(tjs(i)).value & sps(i)
    End If
Next
MessageBox.Show("你查询的是:" & Filter)
Tables("成绩库").Filter = Filter

还是出错，怎么回事？请指教，谢谢！
此主题相关图片如下：123.png
当"ComboBox7"＝10时

Dim tjs() As String = {"ComboBox1","ComboBox2","ComboBox3","ComboBox4","ComboBox5","ComboBox7"}
Dim sps() As String = {"\'","\'","\'","\'","\'"," "}
Dim mc As String = e.Form.Controls("ComboBox6").text
Dim bjf() As String = {" = "," = "," = "," = "," = ",""& mc &""}
Dim fds() As String = {"单位","部别","年级","班","姓名","总分名次"}
Dim Filter As String
For i As Integer = 0 To tjs.length - 1
    If e.Form.Controls(tjs(i)).Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & fds(i) & bjf(i) & sps(i) & e.Form.controls(tjs(i)).value & sps(i)
    End If
Next
MessageBox.Show("你查询的是:" & Filter)
Tables("成绩库").Filter = Filter

谢谢！搞定了。由于我程序中的运算符错了，应为“<    >    <=    >=   <>   =”。