Forms ("导航窗口").Controls("TextBox1").Value = 1 & "/" & Tables(Maintable.Name).DataTable.TotalPages
With e.Form.Controls("上游客户")
If .text > "" Then
Filter = "上游客户 like '%" & .text & "%'"
End If
End With
With e.Form.Controls("品牌")
If .text > "" Then
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = Filter & "品牌 like '%" & .text & "%'"
End If
End With
With e.Form.Controls("商品车")
If .text > "" Then
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = Filter & "商品车 like '%" & .text & "%'"
End If
End With
With e.Form.Controls("备注")
If .text > "" Then
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = Filter & "备注 like '%" & .text & "%'"
End If
End With
Select Case e.Sender.Name
Case "查询"
Functions.Execute("查询")
Case "清除"
Functions.Execute("清除", e) '清除窗口查询条件
End Select
第一次执行查询按钮，是没有问题的，可以按条件加载数据。
但是如果击清除按钮后，再点击查询，就没有反应了
老师帮分析一下原因，及解决的办法
加好友 
发短信
Post By：2023/5/11 12:12:00 [只看该作者]
