主题：如何全部加载数据但是不能显示

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