以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  菜单中筛选按钮代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=12272)
--  作者：张海兵
--  发布时间：2011/8/28 6:37:00
--  菜单中筛选按钮代码

菜单中的load代码。

Dim m As RibbonMenu.MenuButton = e.MenuButton
Dim t As Table = CurrentTable
If t.Current Is Nothing Then
    Return
End If
If t.Current.IsNull(t.ColSel) Then
    m.Items("Equal").Text = "等于空白"
Else
    m.Items("Equal").Text = "等于" & t.Text
End If
m.Items("String").Visible = t.Cols(t.Colsel).IsString
m.Items("Numeric").Visible = t.Cols(t.Colsel).IsNumeric
m.Items("Date").Visible = t.Cols(t.Colsel).IsDate

我是在帮助菜单中找到的代码可不筛选。是不是还需要click代码。请问怎么写啊？
--  作者：狐狸爸爸
--  发布时间：2011/8/28 9:08:00
--  

应该设置在菜单按钮的MouseEnter事件中。