主题：系统菜单里的筛选功能进一步实现

我看了实战演练任务十，想实现一个类似系统菜单里的筛选按钮的功能

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("str包含文本").Visible = t.Cols(t.Colsel).IsString
m.Items("str不含文本").Visible = t.Cols(t.Colsel).IsString
m.Items("Numeric").Visible = t.Cols(t.Colsel).IsNumeric
m.Items("Date").Visible = t.Cols(t.Colsel).IsDate

If m.Items("str包含文本").Visible =True
    m.Items("str包含文本").text="包含" & t.Text
End If

If m.Items("str不含文本").Visible =True
    m.Items("str不含文本").text="不包含" & t.Text
End If

CurrentTable.Filter =t.Cols(t.Colsel)= t.text

如何调用方法click，实现单击下拉菜单“等于空白”就可以筛选呢？

方便的话，能给我你们系统菜单里筛选按钮的代码么？