[讨论]帮助文档“实战演练”错误 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [讨论]帮助文档“实战演练”错误

共有7355人关注过本帖树形打印复制链接主题：[讨论]帮助文档“实战演练”错误

jijianjsj

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

加好友

发短信

等级：童狐帖子：268 积分：2227 威望：0 精华：0 注册：2013/2/4 11:02:00

[讨论]帮助文档“实战演练”错误 发帖心情

Post By：2013/4/1 10:47:00 [只看该作者]

帮助文档1501页：
Dim ng As New RibbonMenu.Group("Filter") '定义新的功能组
ng.Text = "筛选" '设置功能组标题
RibbonTabs("实战演练").Groups.Add(ng) '将功能组加入实战演练功能区
With RibbonTabs("Common").Groups("SortAndFilter")
    ng.Items.Add(.Items("Filter")) '添加筛选按钮
    ng.Items.Add(.Items("SelectFilter")) '添加选择按钮
    ng.Items.Add(.Items("Expression")) '添加编辑按钮
    ng.Items.Add(.Items("UnFilter")) '添加撤销按钮
    ng.Items.Add(.Items("Separator")) '添加分隔条
    ng.Items.Add(.Items("Toggle")) '添加切换按钮
End With

执行后提示不存在”Expression"，请更改。

另外这段在命令窗口连续运行可增加多个功能组，ng.Name提示只读，有其他方法思路对同一个功能组修改吗？