[分享]实例：可视化菜单控制 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [分享]实例：可视化菜单控制

共有24089人关注过本帖树形打印复制链接主题：[分享]实例：可视化菜单控制

gdlgh

小大 11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：449 积分：3506 威望：0 精华：5 注册：2008/9/1 2:32:00

Post By：2011/10/30 13:38:00 [只看该作者]

呵。分享就要顶！

czy

小大 12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：6318 积分：33945 威望：0 精华：10 注册：2008/8/31 20:56:00

Post By：2011/10/30 16:15:00 [只看该作者]

顶一个。

程兴刚

小大 13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：7235 积分：40550 威望：0 精华：16 注册：2008/8/31 23:23:00

Post By：2011/10/30 16:21:00 [只看该作者]

收藏！

姗姗来迟

小大 14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：58 积分：483 威望：0 精华：0 注册：2011/11/14 13:38:00

Post By：2011/11/30 13:51:00 [只看该作者]

Dim s,s1,s2,q As String
s1 = CurrentTable.Current("菜单名")
s2 = CurrentTable.Current("分组名")
If e.Col.Name = "菜单名" Then
    For Each r As RibbonMenu.Tab In RibbonTabs
        s = s + "|" + r.Name
    Next
    Tables("菜单权限表").Cols("菜单名").ComboList = s
ElseIf e.Col.Name = "分组名" AndAlso s1 <> "" Then
    For Each g As RibbonMenu.Group In RibbonTabs(s1).Groups
        q = q + "|" + g.Name
    Next
    Tables("菜单权限表").Cols("分组名").ComboList = q
ElseIf e.Col.Name = "按钮名" AndAlso s1 <> "" AndAlso s2 <> "" Then
    For Each g As RibbonMenu.RibbonItem In RibbonTabs(s1).Groups(s2).Items
        q = q + "|" + g.Name
    Next
    Tables("菜单权限表").Cols("按钮名").ComboList = q
Else
End If

这段代码会自动把系统里面的标题在单元格的下拉内容中显视出来，如果我的项目中所有的标题全是中文，运用到这个代码就不管用了。

这个代码如何更改能实现显示中文的标题

姗姗来迟

小大 15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：58 积分：483 威望：0 精华：0 注册：2011/11/14 13:38:00

Post By：2011/11/30 13:52:00 [只看该作者]

Dim s,s1,s2,q As String
s1 = CurrentTable.Current("菜单名")
s2 = CurrentTable.Current("分组名")
If e.Col.Name = "菜单名" Then
For Each r As RibbonMenu.Tab In RibbonTabs
s = s + "|" + r.Name
Next
Tables("菜单权限表").Cols("菜单名").ComboList = s
ElseIf e.Col.Name = "分组名" AndAlso s1 <> "" Then
For Each g As RibbonMenu.Group In RibbonTabs(s1).Groups
q = q + "|" + g.Name
Next
Tables("菜单权限表").Cols("分组名").ComboList = q
ElseIf e.Col.Name = "按钮名" AndAlso s1 <> "" AndAlso s2 <> "" Then
For Each g As RibbonMenu.RibbonItem In RibbonTabs(s1).Groups(s2).Items
q = q + "|" + g.Name
Next
Tables("菜单权限表").Cols("按钮名").ComboList = q
Else
End If