以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何全部加载数据但是不能显示  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=38314)
--  作者：skyman1188
--  发布时间：2013/7/25 16:54:00
--  如何全部加载数据但是不能显示


如何加载一个表以后，所有的内容不显示。
因为老的内容不能让输入者看到，但是输入者新增内容后，要提示内容和老的内容不能相同。
比如要输入客户的电话号码，新增的不能和数据库以后的相同，但是老的数据又不能让用户看到。

Tables("地址表").Filter = "[_Identify] Is Null"
上面这句话试了一下好象不行。
--  作者：狐狸爸爸
--  发布时间：2013/7/25 17:09:00
--  
1、定义一个Public 变量
 
Public ssss As String
 
2、在AfterOpenProject事件中，加上代码
 
ssss = "[Identify] > " & DataTables("XXX").Compute("Max([_Identify])")
Tables("XXX").Filter = ssss
 
3、另在在这个表的BeforeFilter事件中加上代码：
 
if e.filter = "" then
    e.Filter = ssss
else
    if e.filter.indexof(ssss) < 0 Then
          e.Filter = "(" & e.Filter & ") And " & ssss
    end if
End if
 
http://www.foxtable.com/help/topics/2059.htm
[此贴子已经被作者于2013-7-25 17:09:07编辑过]
--  作者：Bin
--  发布时间：2013/7/25 17:09:00
--  
狐爸这个方法好,学习了.
[此贴子已经被作者于2013-7-25 17:10:34编辑过]
--  作者：狐狸爸爸
--  发布时间：2013/7/25 17:10:00
--  
以下是引用Bin在2013-7-25 17:09:00的发言：
Tables("地址表").Filter = "[_Identify] Is Null" 这个怎么会不行呢,绝对可以把所有内容隐藏掉呀.

你使用录入窗口新增即可.

 

 

呵呵，他说不行，可能是因为可以通过菜单取消筛选吧
--  作者：skyman1188
--  发布时间：2013/7/25 23:01:00
--  
嗯，谢谢，用老的办法可以了。
抱歉我没有说明这个是某些账号要求这样，有些账号是所有的都能看到的。