主题：[求助]当前行是非分组行时，显示菜单按钮

  如题，下面代码求助

With Tables("室内设计项目")

    For i As Integer = 0 To .Rows.Count(True) - 1 'Count加上参数True

        r = .Rows(i,True) 'Rows也需要加上参数True

        If r.IsGroup Then '如果是分组行

RibbonTabs("我的项目").Groups("项目信息及时间录入").Items("施工图时间录入").Visible =  False '是分组行时隐藏按钮

            Else

RibbonTabs("我的项目").Groups("项目信息及时间录入").Items("施工图时间录入").Visible =  True  '不是分组行时显示按钮

        End If

 

    Next

End With