主题：菜单中筛选按钮代码

菜单中的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代码。请问怎么写啊？