以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  系统菜单里的筛选功能进一步实现  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=71533)
--  作者：月亮天蝎
--  发布时间：2015/7/13 15:37:00
--  系统菜单里的筛选功能进一步实现

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

 

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，实现单击下拉菜单“等于空白”就可以筛选呢？

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

 
--  作者：大红袍
--  发布时间：2015/7/13 15:42:00
--  
If t.text = Nothing Then
    CurrentTable.Filter = t.Cols(t.Colsel).Name & " Is null"
Else
    CurrentTable.Filter = t.Cols(t.Colsel).Name & " = \'" & t.text & "\'"
End If
--  作者：月亮天蝎
--  发布时间：2015/7/13 16:56:00
--  

非常感谢，我知道自己错哪里了，谢谢！