主题：代码求助

Dim m As RibbonMenu.MenuButton = e.MenuButton
Dim t As Table = CurrentTable
Dim c As Col = t.Cols(t.ColSel)

If t.Current Is Nothing Then
 Return
End If

If t.Current.IsNull(t.ColSel) Then
    m.Items("等于").Text = "等于空白"
Else
    m.Items("等于").Text = "等于" & t.Text
End If

If t.Current.IsNull(t.ColSel) Then
    m.Items("不等于").Text = "不等于空白"
Else
    m.Items("不等于").Text = "不等于" & t.Text
End If

If c.IsDate Then
   RibbonTabs("我的工作")("工作组")("Filter")("时段筛选").Enabled = True
Else   
   RibbonTabs("我的工作")("工作组")("Filter")("时段筛选").Enabled = False
End If