完整代码如下:
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()