主题：andalso 与systemmemu的bug

你语法逻辑问题。必须这样写代码的

If SystemMenu=False Then
    If r("orderchanged")=True Then '变更订单提醒
        RibbonTabs("功能区1").Groups("newAndHoldSO").Items("ordernotice").pressed=True
    Else
        RibbonTabs("功能区1").Groups("newAndHoldSO").Items("ordernotice").pressed=False
    End If
End If

不然你的逻辑就变了，每次都会执行到 RibbonTabs("功能区1") 的代码，自然报错