Foxtable(狐表)用户栏目专家坐堂 → [求助]想表达初始某些表不加载外部数据


  共有1913人关注过本帖树形打印复制链接

主题:[求助]想表达初始某些表不加载外部数据

帅哥哟,离线,有人找我吗?
sora110
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:66 积分:498 威望:0 精华:0 注册:2016/12/8 17:12:00
[求助]想表达初始某些表不加载外部数据  发帖心情 Post By:2017/1/3 16:49:00 [只看该作者]

各位前辈好!如图,想表达初始时除了“项目部文管菜单”表不受限制全部加载外,其他各表均不加载数据。
之后再依登入者来各个表选择加载,防止某些权限设置意外。
请帮忙看下selectstring的表达怎么修正?谢谢!

 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/1/3 16:54:00 [只看该作者]

 直接写

 

"Select * from {" & e.DataTable.Name & "} where 1=2"

 

 然后,在登陆后,再设置各个表的LoadFilter。


 回到顶部
帅哥哟,离线,有人找我吗?
sora110
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:66 积分:498 威望:0 精华:0 注册:2016/12/8 17:12:00
  发帖心情 Post By:2017/1/4 8:15:00 [只看该作者]

老师好! 在项目事件beforeloadoutertable中写入代码后,项目无法启动。
按ctrl进去,能满足需求。是外部access数据表,求指教。
代码意图是除去某表,其他表初始不加载数据。


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110629 积分:563047 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/1/4 8:35:00 [只看该作者]

贴出你的事件beforeloadoutertable代码

 回到顶部
帅哥哟,离线,有人找我吗?
sora110
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:66 积分:498 威望:0 精华:0 注册:2016/12/8 17:12:00
  发帖心情 Post By:2017/1/4 8:51:00 [只看该作者]

For Each  dt As DataTable In DataTables

    If e.dataTablename= "项目部文管菜单" Then

    Else

        e.Selectstring="Select * f rom {" & e.datatableName & "} where 1=2"

    End If

Next


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110629 积分:563047 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/1/4 9:00:00 [只看该作者]

去掉for循环

 回到顶部
帅哥哟,离线,有人找我吗?
sora110
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:66 积分:498 威望:0 精华:0 注册:2016/12/8 17:12:00
  发帖心情 Post By:2017/1/4 16:38:00 [只看该作者]

老师好!为了数据安全数据表初始不加载数据。
然后在表afteropenproject中加入以下代码,意图加载登陆者的记录。
请问LoadFilter不能这样定义吗?

 回到顶部
帅哥哟,离线,有人找我吗?
sora110
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:66 积分:498 威望:0 精华:0 注册:2016/12/8 17:12:00
  发帖心情 Post By:2017/1/4 16:38:00 [只看该作者]

上图

 回到顶部
帅哥哟,离线,有人找我吗?
sora110
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:66 积分:498 威望:0 精华:0 注册:2016/12/8 17:12:00
  发帖心情 Post By:2017/1/4 16:39:00 [只看该作者]

以下内容为程序代码:

1 With DataTables("检验批验收记录")
2 .LoadFilter = "" '一定要清除加载条件
3 .LoadFilter ="e.Row("录入人员") = User.Name "
4 .Load()
5 End With

 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/1/4 16:45:00 [只看该作者]

 

.LoadFilter ="录入人员 = '" & User.Name & "'"

 


 回到顶部