| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]当前行是非分组行时，显示菜单按钮 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=127967) |
| -- 作者：湛江智 -- 发布时间：2018/11/26 12:03:00 -- [求助]当前行是非分组行时，显示菜单按钮 如题，下面代码求助 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[此贴子已经被作者于2018/11/26 12:03:59编辑过]
|
| -- 作者：有点甜 -- 发布时间：2018/11/26 12:14:00 -- 1、要去计时器或者systemready写代码才行；
2、
If Tables("室内设计项目").Rows(Tables("室内设计项目").RowSel, True).IsGroup Then Else End If |
| -- 作者：湛江智 -- 发布时间：2018/11/26 17:12:00 -- 回复：（有点甜）1、要去计时器或者systemready写代码... 计时器间隔设置为2000，下面代码不行，怎么修改呢？ systemready 帮助看不懂，能详细指教一下嘛？ If Tables("室内设计项目").Rows(Tables("室内设计项目").RowSel, True).IsGroup Then RibbonTabs("我的项目").Groups("项目信息及时间录入").Items("施工图时间录入").Visible = False \'是分组行时隐藏按钮 Else RibbonTabs("我的项目").Groups("项目信息及时间录入").Items("施工图时间录入").Visible = True \'不是分组行时显示按钮 End If |
| -- 作者：有点甜 -- 发布时间：2018/11/26 17:43:00 --
代码绝对没问题。请认真测试。看你是不是写错了列名。
|