以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于代码优化  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=138096)
--  作者：ygg8310
--  发布时间：2019/7/22 22:01:00
--  关于代码优化
If e.DataTableName = "表A" Then
    e.Cancel = False \'打开项目的时候不加载此表
    e.Filter = "录入时间 = #" & Date.Today & "#" \'设置加载条件
End If
If e.DataTableName = "表B" Then
    e.Cancel = False \'打开项目的时候不加载此表
    e.Filter = "录入时间 = #" & Date.Today & "#" \'设置加载条件
End If
如上所示总感觉很别扭
--  作者：有点蓝
--  发布时间：2019/7/22 22:54:00
--  
select case e.DataTableName
    case "表A","表B"
    e.Cancel = False \'打开项目的时候不加载此表
    e.Filter = "录入时间 = #" & Date.Today & "#" \'设置加载条件
end select