If Tables("菜单风格").Current("风格") = "风格一" Then
RibbonTabs("涉案卷宗材料及款物二维码管理").Groups("卷宗入库").Items("卷宗查询").Visible = True
RibbonTabs("涉案卷宗材料及款物二维码管理").Groups("卷宗使用").Visible = True
RibbonTabs("涉案卷宗材料及款物二维码管理").Groups("款物入库").Items("款物查询").Visible = True
RibbonTabs("涉案卷宗材料及款物二维码管理").Groups("款物使用").Visible = True
'RibbonTabs("涉案卷宗材料及款物二维码管理").Groups("ClipBoard").Items("Paste").text = "今天是:" & format(Date.now, "yyyy年MM月dd日 dddd")
Else
RibbonTabs("涉案卷宗材料及款物二维码管理").Groups("卷宗入库").Items("卷宗查询").Visible = False
RibbonTabs("涉案卷宗材料及款物二维码管理").Groups("卷宗使用").Visible = False
RibbonTabs("涉案卷宗材料及款物二维码管理").Groups("款物入库").Items("款物查询").Visible = False
RibbonTabs("涉案卷宗材料及款物二维码管理").Groups("款物使用").Visible = False
End If
“菜单风格”表没有直接加载在项目里面来,在么实现利用代码直接调用后台数据库里面“菜单风格”表中对应的“风格”列数据值呢?