菜单系统事件LoadUserSetting中的代码:
If _UserName = "admin" Then
TableCaptionVisible = True
Dim xtcd As RibbonMenu.Button = RibbonTabs("功能区1").Groups("9").Items("使用帮助").Items("进入系统菜单")
xtcd.Visible=True
Else
TableCaptionVisible = False
Dim xtcd As RibbonMenu.Button = RibbonTabs("功能区1").Groups("9").Items("使用帮助").Items("进入系统菜单")
xtcd.Visible=False
End If
切换用户后并不起作用,"进入系统菜单"仍可见,求高手帮忙看看代码是否有错?