主题：[分享]实例：可视化菜单控制

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

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

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

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

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

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