例子:
查询代码有误,如何修改?请指教,谢谢!
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
此主题相关图片如下:qq图片20151003111859.png
[此贴子已经被作者于2015/10/3 11:31:31编辑过]