- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]全局代码 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=170857)
-- 发布时间：2021/8/9 19:29:00
-- [求助]全局代码
我在全局代码中增加了以上代码，然后在窗口"GC"控件中切换条件查询的时候，前两次切换条件数据都能出来，第三次条件的时候数据就出不来了，只能重启项目，项目重启后又是只能切换两次条件，会是什么原因呢
With e.Form.Controls("GC")
If .Value IsNot Nothing Then
If Filter1 > "" Then
Filter1 = Filter1 & " And "
End If
Filter1 = Filter1 & "工厂 In ( \'" & .Value.replace(",","\',\'") & "\')"
End If
End With
[此贴子已经被作者于2021/8/9 19:30:22编辑过]
-- 发布时间：2021/8/9 20:19:00
--
With e.Form.Controls("GC")
If .Value IsNot Nothing Then
If Filter1 > "" Then
Filter1 = Filter1 & " And "
End If
Filter1 = Filter1 & "工厂 In ( \'" & .Value.replace(",","\',\'") & "\')"
End If
End With
msgbox（Filter1 ）
-- 发布时间：2021/8/10 8:26:00
--
好象是切换条件后还是保留了原来的条件，比如我第一次同时选择下面两个工厂，结果如图1，第二次我只选择其中一个工厂，结果如图2，第三次我再只选择另一个工厂，结果如图3，第三次条件就冲突了所以取不出来了。发现只要查一次，就会把前面的条件记忆下来
此主题相关图片如下：图1.png
此主题相关图片如下：图2.png
此主题相关图片如下：图3.png
[此贴子已经被作者于2021/8/10 8:31:25编辑过]
-- 发布时间：2021/8/10 8:38:00
--
Filter1 =""
With e.Form.Controls("GC")
If .Value IsNot Nothing Then
If Filter1 > "" Then
Filter1 = Filter1 & " And "
End If
Filter1 = Filter1 & "工厂 In ( \'" & .Value.replace(",","\',\'") & "\')"
End If
End With
-- 发布时间：2021/8/10 9:04:00
--
Filter1 =""相当于把全局代码中的“1=1”清除掉了，然后会出错。而且是不可逆的，即使去掉Filter1 =""还是会出错，要重启项目才可以
此主题相关图片如下：qq图片20210810090238.png
[此贴子已经被作者于2021/8/10 9:06:28编辑过]
-- 发布时间：2021/8/10 9:14:00
--
Filter1 ="1=1"，这样好象可以了