以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  加载表问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=124805)

--  作者:jick0526
--  发布时间:2018/9/14 0:49:00
--  加载表问题
老师,请问下,如果用户名是张三,那么打开软件时默认只加载表A,其他的表只加载表,但不加载任何数据,代码要怎么写,谢谢!(我参考了教程里的初始不加载表,但不懂怎么修改)
--  作者:有点甜
--  发布时间:2018/9/14 9:22:00
--  

参考这里

 

http://www.foxtable.com/webhelp/scr/2256.htm

 

http://www.foxtable.com/webhelp/scr/1268.htm

 


--  作者:jick0526
--  发布时间:2018/9/14 22:12:00
--  
老师,上面的表都是只针对单个表,我有很多个表,我就是想如果用户名是张三,那么打开软件时默认只加载表A,其他表数据都不加载,如果是其他用户名,则一切正常,麻烦老师帮我写下代码,谢谢!
--  作者:有点蓝
--  发布时间:2018/9/14 22:27:00
--  
BeforeLoadOuterTable或者BeforeLoadInnerTable事件

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

--  作者:jick0526
--  发布时间:2018/9/14 23:34:00
--  
老师,上面的除了表A,其他表变成都不加载了,我是要其他表也加载,但是不会加载数据,就是加载空表
--  作者:有点蓝
--  发布时间: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
--  发布时间:2018/9/15 15:04:00
--  
老师,不好意思,上面的代码想修改成除了表A,其他表都只加载10行,要怎么修改,麻烦老师帮我改下代码,谢谢!
--  作者:有点蓝
--  发布时间: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