If sx1.text = "最高学历" Then
筛选项目 = "学历"
Dim dr As DataRow
dr =DataTables("数据字典").Find("[学历]='" & sx3.text & "'")
If dr IsNot Nothing Then
Dim xldj As String = dr("学历等级") '求得学历对应的等级
msgbox( xldj ) '如果sx3选专科,这里的值为5
If sx2.text = "高于" Then
'开始求出一个高于 xldj 的学历组合
'Dim lt As new List(Of String) '定义集合
Dim lt As List(of String) = DataTables("数据字典").GetValues("学历","[学历等级] > xldj ")
'这里不知道该用组合还是用数组
Dim alt() As String = lt.ToArray
Dim slt As String = String.Join(",", alt)
Filter = " [最高学历_学历] in ('" & slt.Replace(",","','") & "')")) '该句不知道如何叙述
ElseIf ...
...
Else
Filter = ""
End If
End If
Else
Filter = ""
End If
Else
Filter = ""
End If
Tables("教职工信息表").Filter = Filter
加好友 
发短信
Post By：2015/12/10 8:28:00 [显示全部帖子]
