以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  双击单元格筛选问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=130399)

--  作者:蓝蚂蚁
--  发布时间:2019/1/21 10:35:00
--  双击单元格筛选问题
在窗口1_Table1副本表中,双击"编号"列中的单元格时,筛选出编号=e.row("编号")的数据,再次双击该单元格时,取消筛选
其代码:
.......
    Case "编号"
        If Forms("窗口1").opened()
            e.Cancel = True
            e.Form.controls("Table1").Table.filter="编号=\'"& e.row("编号") &"\'"   
        End If
.......
倒数第二句代码中双击时能筛选出来,但如何修改代码,让再次双击时取消筛选呢?
谢谢了。
[此贴子已经被作者于2019/1/21 10:36:32编辑过]

--  作者:有点甜
--  发布时间:2019/1/21 11:10:00
--  
Case "编号"
    If Forms("窗口1").opened()
        e.Cancel = True
        If vars("次数") = 0 Then
            e.Form.controls("Table1").Table.filter="编号=\'"& e.row("编号") &"\'"
            vars("次数") = 1
        Else
            e.Form.controls("Table1").Table.filter=""
            vars("次数") = 0
        End If
    End If

--  作者:蓝蚂蚁
--  发布时间:2019/1/21 11:34:00
--  
完美解决,再次想问一下,vars为什么不用定义?
--  作者:有点甜
--  发布时间:2019/1/21 11:54:00
--  
以下是引用蓝蚂蚁在2019/1/21 11:34:00的发言:
完美解决,再次想问一下,vars为什么不用定义?

 

可以不定义的,如

 

强行要求Var变量必须事先定义

Var无需定义,可以直接使用,在编码方面更灵活,但是如果代码中出现了变量名称拼写错误,将没有办法自动给予提示。
如果要求Var变量必须事先定义才能使用,可以在项目属性中,将"Var变量必须提前定义"设置为True:

图片点击可在新窗口打开查看