求助菜单转换 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求助菜单转换

共有11574人关注过本帖树形打印复制链接主题：求助菜单转换

卟离卟弃

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

加好友

发短信

等级：五尾狐帖子：1181 积分：8108 威望：0 精华：1 注册：2009/1/17 10:52:00

求助菜单转换 发帖心情

Post By：2010/9/17 16:23:00 [只看该作者]

图片点击可在新窗口打开查看此主题相关图片如下：0.png

我要把菜单功能区上的功能转到配置栏上面，所有的都转换差不多了，只有自动计算这个功能不知道怎么样转换。

求高手帮忙转换一下。。谢谢

此主题相关图片如下：1.png

czy

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

加好友

发短信

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

Post By：2010/9/17 20:22:00 [只看该作者]

RibbonTabs("Other")("Aggregate")("Aggregate").Enabled = True
RibbonTabs("Other")("Aggregate")("Count").Checked = True
RibbonTabs("Other")("Aggregate")("Sum").Checked = True
RibbonTabs("Other")("Aggregate")("Average").Checked = True

卟离卟弃

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

加好友

发短信

等级：五尾狐帖子：1181 积分：8108 威望：0 精华：1 注册：2009/1/17 10:52:00

Post By：2010/9/18 9:13:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:新建文件夹.zip

C版，这是我的菜单，我不知道那个自动计算功能怎么样转，，麻烦你看看。

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47448 积分：251048 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2010/9/18 10:07:00 [只看该作者]

打开系统菜单的模板，看看系统菜单的代码就知道那个自动计算的大按钮的代码应该是：

Vars("SysUpdateAggregate") = e.ToggleButton.Pressed
RaiseSystemEvent(CurrentTable,SystemEventTypeEnum.AfterSelRangeChange)

[此贴子已经被作者于2010-9-18 10:08:39编辑过]

czy

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

加好友

发短信

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

Post By：2010/9/18 12:30:00 [只看该作者]

以下是引用卟离卟弃在2010-9-18 9:13:00的发言：

下载信息 [文件大小：58.2 KB 下载次数：6]
点击浏览该文件:新建文件夹.zip

C版，这是我的菜单，我不知道那个自动计算功能怎么样转，，麻烦你看看。

sorry！是我写错了，正确的应该是:

RibbonTabs("Other")("Aggregate")("Aggregate").Pressed = True
RibbonTabs("Other")("Aggregate")("Count").Checked = True
RibbonTabs("Other")("Aggregate")("Sum").Checked = True
RibbonTabs("Other")("Aggregate")("Average").Checked = True

[此贴子已经被作者于2010-9-18 12:30:04编辑过]