- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 请教:任务十中的代码问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=2648)
-- 发布时间：2009/4/30 16:32:00
-- 请教:任务十中的代码问题
我在菜单中按此任务十做了设置,但在给菜单按钮的MouseEnter事件设置如下代码时出现问题,不知道何原因,;图如下
Dim
m As RibbonMenu.MenuButton = e.MenuButtonDim 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
是否和我删除了原系统菜单中的代码有关?
[此贴子已经被作者于2009-4-30 16:35:52编辑过]
-- 发布时间：2009/4/30 16:42:00
-- 下载设置咨询。
不是啊，你代码设置错了位置，你设置在功能组的MouseEntet事件中，实际上，你应该设置在你的菜单按钮的MouseEnter事件中。
-- 发布时间：2009/4/30 16:58:00
--
噢,明白了,已设置好了,谢谢贺老师!呵呵
[此贴子已经被作者于2009-4-30 17:00:52编辑过]
-- 发布时间：2009/4/30 17:13:00
--
