Office中国论坛/Access中国论坛

标题: 【Access小品】锦上添花 -- 报表管理器的快捷菜单处理方式 [打印本页]

作者: todaynew 时间: 2015-6-16 20:14
标题: 【Access小品】锦上添花 -- 报表管理器的快捷菜单处理方式
本帖最后由 todaynew 于 2015-6-17 11:53 编辑

　　昨日里发了一个关于报表管理器的帖子《护士美眉》，总觉得报表设计部分的处理不够简洁，于是乎便决定做一番优化。想来想去，似乎用快捷菜单处理应该更为妥帖，按照这个思路对原示例进行了大幅度的修改。最终效果感觉比较满意，算是对报表管理器研究的锦上添花。

示例：[attach]56608[/attach]

视图：

[attach]56609[/attach]

作者: zhidao 时间: 2015-6-16 20:45
版主厉害啊

作者: zhuyiwen 时间: 2015-6-16 21:39
赞一个

作者: hunrybecky 时间: 2015-6-16 22:44
todaynew的这个报表和上次的合并一下，可以做通用报表了。

作者: 盗梦 时间: 2015-6-17 08:50
可以考虑每次操作后，刷新之前，先记录当前焦点位置。刷新之后，再定位回去 ^_^

作者: todaynew 时间: 2015-6-17 11:05

盗梦发表于 2015-6-17 08:50
可以考虑每次操作后，刷新之前，先记录当前焦点位置。刷新之后，再定位回去 ^_^

这个细节提醒的恰当，将SetForm函数做如下修改即可。
Public Function SetForm()
'功能：设置子窗体
Dim row As Integer, col As Integer
row = SubForm.SelTop
col = SubForm.SelLeft - 1
Call WriteTempHead(TableID, CurrentPage)
Call WriteTempBody(TableID, CurrentPage)
Call SetColumnTitle(CurrentPage)
Call SetColumnHidden(TableID)
Call SetColumnWidth(TableID, CurrentPage)
SubForm.Requery
SubForm.SelTop = row
SubForm.SelLeft = col
End Function

作者: admin 时间: 2015-6-17 17:58
赞一个

作者: cpxie 时间: 2015-6-17 19:36
膜拜啊

作者: admin 时间: 2015-6-18 09:50
的确很强大！

作者: zhao__feng 时间: 2015-7-1 19:39
谢谢

作者: 冚友 时间: 2015-7-2 22:58
强大！

作者: nncchh 时间: 2015-7-20 14:57
学习学习，谢谢分享！

作者: huoren111 时间: 2015-9-30 11:08
版主厉害啊

作者: jiajiapt 时间: 2015-11-25 21:22
帅气，太厉害了

作者: 李力军2 时间: 2016-6-15 09:11
厉害啊,项一个

作者: 李力军2 时间: 2016-7-30 15:15
好啊

作者: pyh512 时间: 2016-7-31 08:11
学习学习

作者: woshinide 时间: 2016-8-14 17:32
outlook有没有录制宏之类的功能呢

作者: yhl091122 时间: 2016-8-18 14:11
学习

作者: owen2016 时间: 2016-8-20 11:13
已经下载学习

作者: boon 时间: 2019-5-18 08:02
做得太强大了

作者: jun_hai 时间: 2023-3-15 10:35
谢谢！！！！！！

作者: worryd1 时间: 2023-11-21 19:38
不能调出右键菜单，不知道为什么

作者: xylq 时间: 2024-2-28 22:58
版主厉害啊

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)