标题：请教:任务十中的代码问题

  我在菜单中按此任务十做了设置,但在给菜单按钮的MouseEnter事件设置如下代码时出现问题,不知道何原因,;图如下

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

此主题相关图片如下：任务十代码.jpg



是否和我删除了原系统菜单中的代码有关?

不是啊，你代码设置错了位置，你设置在功能组的MouseEntet事件中，实际上，你应该设置在你的菜单按钮的MouseEnter事件中。

噢,明白了,已设置好了,谢谢贺老师!呵呵