- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 自动获取菜单名称和标题代码，为什么每次点击【同步菜单名称】按钮之后，就好全新增加所有菜单名称，而不是仅仅把新增加菜单名称加到表格里？？？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=30087)
-- 发布时间：2013/3/20 17:49:00
-- 自动获取菜单名称和标题代码，为什么每次点击【同步菜单名称】按钮之后，就好全新增加所有菜单名称，而不是仅仅把新增加菜单名称加到表格里？？？
自动获取菜单名称和标题代码，为什么每次点击【同步菜单名称】按钮之后，就好全新增加所有菜单名称，而不是仅仅把新增加菜单名称加到表格里？？？
【同步菜单名称】标准按钮的Click事件代码如下：
For Each rt As RibbonMenu.Tab In RibbonTabs
For Each rg As RibbonMenu.Group In rt.Groups
For Each rb As Object In rg.Items
Dim dr As DataRow = DataTables ("菜单管理"). Find( "RibbonTabs名称 = \'" & rt.Name & "\' And RibbonTabs标题 = \'" & rt.Text & "\' And Groups名称 = \'" & rg.Name & "\' And Groups标题 = \'" & rg.Text & "\' And Items名称 = \'" & rb.Name & "\' And Items标题 = \'" & rb.Text & "\' And Items提示 = \'" & rb.ToolTip & "\'")
If dr Is Nothing Then
dr = DataTables ( "菜单管理" ). AddNew ()
dr("RibbonTabs名称") = rt.Name
dr("RibbonTabs标题") =rt.Text
dr("Groups名称") =rg.Name
dr("Groups标题") =rg.Text
dr("Items名称") =rb.Name
dr("Items标题") =rb.Text
dr("Items提示") =rb.ToolTip
End If
Next
Next
Next
老大们，帮忙看看代码错误原因，帮忙指正！
[此贴子已经被作者于2013-3-20 17:50:10编辑过]
-- 发布时间：2013/3/21 13:08:00
--
万分感谢【muhua】老大帮忙增加菜单测试，以及非常有耐心帮助新手指出错误！问题已解决！  |