以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  菜单，状态按钮做筛选，如果表格内容为空，会出现错误  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=96432)

--  作者：szsmall --  发布时间：2017/2/20 20:09:00 --  菜单，状态按钮做筛选，如果表格内容为空，会出现错误 自制菜单，用状态按钮做一个筛选，发现如果表格为空，会出现错误。代码如下： If e.ToggleButton.Pressed = True Then     Syscmd.Filter.Equal(True) Else     Syscmd.Filter.UnFilter() End If 此主题相关图片如下：227.gif

--  作者：有点蓝 --  发布时间：2017/2/20 20:16:00 --   If e.ToggleButton.Pressed = True Then     If CurrentTable.Rows.Count > 0 Then Syscmd.Filter.Equal(True) Else     Syscmd.Filter.UnFilter() End If

--  作者：szsmall --  发布时间：2017/2/20 21:07:00 --   能做到，如果表格内容为空时，筛选按钮自动变灰。下面代码，好像没用 If e.ToggleButton.Pressed = True Then     If CurrentTable.Rows.Count < 0 Then         e.ToggleButton.Enabled = False     End If End If If e.ToggleButton.Pressed = True Then     If CurrentTable.Rows.Count > 0 Then Syscmd.Filter.Equal(True) Else     Syscmd.Filter.UnFilter() End If

--  作者：有点蓝 --  发布时间：2017/2/20 22:21:00 --   CurrentTableChanged事件 RibbonTabs("某功能区").Groups("某功能组").Items("某状态按钮").Enabled = not (CurrentTable.Rows.Count = 0)