Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何关闭表加载提示


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

主题：如何关闭表加载提示
帅哥哟，离线，有人找我吗？
南山南
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：64 积分：644 威望：0 精华：0 注册：2019/4/22 15:47:00 		如何关闭表加载提示  发帖心情 Post By：2020/3/7 10:35:00 [只看该作者]

第一、当以开发者的身份登录时不会出现加表加载提示。
第二、当以管员或者从开发者身份切换到管理员身份时会出现提示，提示如下：[SEO]已经加载
第三、代码如下：
If User.Name = "开发者" Then
    RibbonTabs("日常工作").Visible = False
Else
    DataTables.Load("SEO|游客跟踪表|运营|客服")
    RibbonTabs("日常工作").Visible = True
    Tables("SEO").Cols("姓名").Visible = False
    Tables("SEO").Cols("日期").Visible = False
    Tables("游客跟踪表").Cols("姓名").Visible = False
    Tables("游客跟踪表").Cols("组").Visible = False
End If
第四、如何关闭登录后进入表后的提示？
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107301 积分：545766 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/3/7 10:44:00 [只看该作者]

不爱不能重复加载，判断一下是否已经加载

If User.Name = "开发者" Then
    RibbonTabs("日常工作").Visible = False
Else
dim str() as string = {"SEO","游客跟踪表","运营","客服"}
dim s1 as string
for each s as string in str
if DataTables.contains(s)= false then
s1 = s1 & "|" & s
end if
next
s1 = s1.trim("|")
DataTables.Load(s1)
RibbonTabs("日常工作").Visible = True
……
 回到顶部
帅哥哟，离线，有人找我吗？
南山南
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：64 积分：644 威望：0 精华：0 注册：2019/4/22 15:47:00 		  发帖心情 Post By：2020/3/7 16:49:00 [只看该作者]

.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2019.12.17.18
错误所在事件：项目,LoadUserSetting
详细错误信息：
未将对象引用设置到对象的实例。
假如判断代码后出现以上错误提示，难道是放错了事项吗？
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107301 积分：545766 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/3/7 17:18:00 [只看该作者]

贴出LoadUserSetting完整代码

 回到顶部
帅哥哟，离线，有人找我吗？
南山南
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：64 积分：644 威望：0 精华：0 注册：2019/4/22 15:47:00 		  发帖心情 Post By：2020/3/7 17:47:00 [只看该作者]

完整代码如下：
If User.Name = "开发者" Then
    RibbonTabs("日常工作").Visible = False
Else
    Dim str() As String = {"SEO","游客跟踪表","运营","客服"}
    Dim s1 As String
    For Each s As String In str
        If DataTables.contains(s)= False Then
            s1 = s1 & "|" & s
        End If
    Next
    s1 = s1.trim("|")
    DataTables.Load(" & s1 & ")
    RibbonTabs("日常工作").Visible = True
    Tables("SEO").Visible = False
    Tables("客服").Visible = False
    Tables("运营").Visible = False

    Tables("游客跟踪表").Cols("运营商").Visible = False
    Tables("游客跟踪表").Cols("姓名").Visible = False
    Tables("游客跟踪表").Cols("组").Visible = False
End If



If User.Name = "开发者" Then
    DataTables("游客跟踪表").LoadFilter = ""
Else
    DataTables("游客跟踪表").LoadFilter = "姓名 = '" & User.Name & "'"
End If
DataTables("游客跟踪表").Load()
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107301 积分：545766 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/3/7 18:10:00 [只看该作者]

调试看是哪一句代码出错：http://www.foxtable.com/webhelp/topics/1485.htm

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03613 秒, 4 次数据查询