[求助]筛选条件不起作用 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师，我下面标黄的字符串了，筛选条件没起作用。想要将组合框为 nothing 时检查类别 = 复查的过滤掉。学艺不精。谢谢！

With e.Form.Controls("ComboBox2")

If .Value IsNot Nothing Then

If Filter > "" Then

Filter = Filter & " And "

End If

Filter = Filter & "检查类别 = '" & .Value & "'"

Else

If Filter > "" Then

Filter = Filter & " And "

End If

Filter = Filter & "检查类别 <> '复查'"

End If

End With

[此贴子已经被作者于2022/12/20 10:48:07编辑过]

老师是后面还有筛选条件，如果后面的条件为空没问题，否则 "检查类别 <> '复查'"和前面的筛选条件就没了。不知为何。我把1楼的代码防最后就没问题了。

此主题相关图片如下：qq图片20221220110958.png

此主题相关图片如下：qq图片20221220111106.png

[此贴子已经被作者于2022/12/20 11:20:53编辑过]

Dim Filter As String

With e.Form.Controls("ComboBox1")

If .Value IsNot Nothing Then

Filter = "工作单位 = '" & .Value & "'"

End If

End With

With e.Form.Controls("ComboBox2")

If .Value IsNot Nothing Then

If Filter > "" Then

Filter = Filter & " And "

End If

Filter = Filter & "检查类别 = '" & .Value & "'"

Else

If Filter > "" Then

Filter = Filter & " And "

End If

Filter = Filter & "检查类别 <> '复查'"

End If

End With

With e.Form.Controls("CheckedComboBox1")

If .value IsNot Nothing Then

Dim Ft As String

Dim Vals() As String = .Value.Split(",")

For Val As Integer = 0 To Vals.Length - 1

Ft + = ",'" & Vals(Val) & "'"

If ft > "" Then

Filter = "车间 In (" & Ft.Trim(",") & ")"

End If

End With

With e.Form.Controls("DateTimePicker1")

If .Value IsNot Nothing Then

If Filter > "" Then

Filter = Filter & " And "

End If

Filter = Filter & "体检日期 >= '" & .Value & "'"

End If

End With

With e.Form.Controls("DateTimePicker2")

If .Value IsNot Nothing Then

If Filter > "" Then

Filter = Filter & " And "

End If

Filter = Filter & "体检日期 <= '" & .Value & "'"

End If

End With

[此贴子已经被作者于2022/12/20 11:22:54编辑过]

老师，如果车间为空没问题，否则就出现错误提示

此主题相关图片如下：qq图片20221220112949.png

[此贴子已经被作者于2022/12/20 11:34:10编辑过]

主题：[求助]筛选 条件不起作用

主题：[求助]筛选条件不起作用