Foxtable(狐表)用户栏目专家坐堂 → 加载表问题


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

主题:加载表问题

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


加好友 发短信
等级:三尾狐 帖子:715 积分:6677 威望:0 精华:0 注册:2016/6/27 17:56:00
加载表问题  发帖心情 Post By:2018/9/14 0:49:00 [只看该作者]

老师,请问下,如果用户名是张三,那么打开软件时默认只加载表A,其他的表只加载表,但不加载任何数据,代码要怎么写,谢谢!(我参考了教程里的初始不加载表,但不懂怎么修改)

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/9/14 9:22:00 [只看该作者]


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


加好友 发短信
等级:三尾狐 帖子:715 积分:6677 威望:0 精华:0 注册:2016/6/27 17:56:00
  发帖心情 Post By:2018/9/14 22:12:00 [只看该作者]

老师,上面的表都是只针对单个表,我有很多个表,我就是想如果用户名是张三,那么打开软件时默认只加载表A,其他表数据都不加载,如果是其他用户名,则一切正常,麻烦老师帮我写下代码,谢谢!

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106545 积分:541890 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/9/14 22:27:00 [只看该作者]

BeforeLoadOuterTable或者BeforeLoadInnerTable事件

If e.User.Name = "张三" AndAlso e.DataTableName <> "表A" Then
    e.
Cancel = true
End
 If

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


加好友 发短信
等级:三尾狐 帖子:715 积分:6677 威望:0 精华:0 注册:2016/6/27 17:56:00
  发帖心情 Post By:2018/9/14 23:34:00 [只看该作者]

老师,上面的除了表A,其他表变成都不加载了,我是要其他表也加载,但是不会加载数据,就是加载空表

 回到顶部
帅哥,在线噢!
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106545 积分:541890 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/9/15 8:39:00 [只看该作者]

If e.User.Name = "张三" AndAlso e.DataTableName <> "表A" Then
    e.SelectString = "select * from " & e.DataTableName & " where [_Identify] Is Null"
End If

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


加好友 发短信
等级:三尾狐 帖子:715 积分:6677 威望:0 精华:0 注册:2016/6/27 17:56:00
  发帖心情 Post By:2018/9/15 15:04:00 [只看该作者]

老师,不好意思,上面的代码想修改成除了表A,其他表都只加载10行,要怎么修改,麻烦老师帮我改下代码,谢谢!

 回到顶部
帅哥,在线噢!
有点蓝
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

If e.User.Name = "张三" AndAlso e.DataTableName <> "表A" Then
    e.SelectString = "select  top 10 * from " & e.DataTableName  
End If

 回到顶部