Dim Filter As String
With e.Form.Controls("tx")
If .Value IsNot Nothing Then
Filter = "条文归属 = '" & .Value & "'"
End If
End With
With e.Form.Controls("qd")
If .Value IsNot Nothing Then
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = Filter & "条文分类 = '" & .Value & "'"
End If
End With
With e.Form.Controls("bj")
If .Value IsNot Nothing Then
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = Filter & "标记 = '" & .Value & "'"
End If
End With
With e.Form.Controls("zy")
If .Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "专业分类 like '%" & .Value & "%'"
End If
End With
With e.Form.Controls("ny")
If .Value IsNot Nothing Then
Filter = "难易度 = '" & .Value & "'"
End If
End With
If Filter > "" Then
Tables("绿建国标条款").Filter = Filter