Dim lms As String = "考试性质|考试年月|班级|科类|姓名"
Dim Filter As String
Dim lst As new List(of String)
For i As Integer = 0 To lms.Split("|").Length - 1
Dim s As String = Forms("筛选").Controls("combobox" & i+1).Value
If s > ""
lst.Add(lms.Split("|")(i) & "='" & s & "'")
End If
Next
Filter = String.join(" and ",lst.ToArray)
Dim jb As New SQLJoinTableBuilder("查询表1","成绩表")
jb.AddCols("*")
jb.Filter = Filter
DataTables("成绩加载表").DataRows.Clear
Dim f As New Filler
f.SourceTable = jb.Build(True)
f.DataTable = DataTables("成绩加载表")
f.Fill()
MainTable = Tables("成绩加载表")