以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何关闭表加载提示  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=146989)

--  作者:南山南
--  发布时间: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
第四、如何关闭登录后进入表后的提示?

--  作者:有点蓝
--  发布时间: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
……

--  作者:南山南
--  发布时间:2020/3/7 16:49:00
--  
.NET Framework 版本:4.0.30319.42000
Foxtable 版本:2019.12.17.18
错误所在事件:项目,LoadUserSetting
详细错误信息:
未将对象引用设置到对象的实例。
假如判断代码后出现以上错误提示,难道是放错了事项吗?

--  作者:有点蓝
--  发布时间:2020/3/7 17:18:00
--  
贴出LoadUserSetting完整代码
--  作者:南山南
--  发布时间: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()

--  作者:有点蓝
--  发布时间:2020/3/7 18:10:00
--  
调试看是哪一句代码出错:http://www.foxtable.com/webhelp/topics/1485.htm