Dim tja As String = ""
Dim tjb As String = ""
For Each dr As Row In Tables("专业目录").Rows
tja = tja & "'" & dr("专业名称") & "',"
If tjb > "" Then
tjb = tjb & " or "
End If
tjb = tjb & "专业名称 like '%、" & dr("专业名称") & "、%'"
Next
DataTables("山东新高考_Table1").LoadFilter = "专业名称 in (" & tja.Trim(",") & ") Or " & tjb
MessageBox.Show("专业名称 in (" & tja.Trim(",") & ") Or " & tjb)
DataTables("山东新高考_Table1").Load
以上代码是根据专业目录表生成查询条件，会生成一个很长的条件表达式，行数多的时候还会出现错误提示“查询过于复杂”。各位大神有什么好办法简化一下查询条件？
加好友 
发短信
Post By：2020/9/22 11:18:00 [只看该作者]
