设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

123下一页
返回列表 发新帖
查看: 10824|回复: 25

[Access本身] 【Access小品】锦上添花 -- 报表管理器的快捷菜单处理方式

[复制链接]
发表于 2015-6-16 20:14:21 | 显示全部楼层 |阅读模式
本帖最后由 todaynew 于 2015-6-17 11:53 编辑

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

示例:

视图:


本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x

评分

参与人数 1经验 +24 收起 理由
tmtony + 24 这个要加高分!!

查看全部评分

本帖被以下淘专辑推荐:

点击这里给我发消息

发表于 2015-6-16 20:45:05 | 显示全部楼层
版主厉害啊

点击这里给我发消息

发表于 2015-6-16 21:39:26 | 显示全部楼层
赞一个
回复

使用道具 举报

发表于 2015-6-16 22:44:25 | 显示全部楼层
todaynew的这个报表和上次的合并一下,可以做通用报表了。

点击这里给我发消息

发表于 2015-6-17 08:50:44 | 显示全部楼层
可以考虑每次操作后,刷新之前,先记录当前焦点位置。刷新之后,再定位回去  ^_^
 楼主| 发表于 2015-6-17 11:05:00 | 显示全部楼层
盗梦 发表于 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

点击这里给我发消息

发表于 2015-6-17 17:58:38 | 显示全部楼层
赞一个
回复

使用道具 举报

点击这里给我发消息

发表于 2015-6-17 19:36:41 | 显示全部楼层
膜拜啊
回复

使用道具 举报

点击这里给我发消息

发表于 2015-6-18 09:50:42 | 显示全部楼层
的确很强大!

点击这里给我发消息

发表于 2015-7-1 19:39:54 | 显示全部楼层
谢谢
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-3-29 10:11 , Processed in 0.108878 second(s), 41 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表