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

todaynew · 发表于 2015-6-16 20:14:21

本帖最后由 todaynew 于 2015-6-17 11:53 编辑

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

示例：

视图：

zhidao · 发表于 2015-6-16 20:45:05

版主厉害啊

zhuyiwen · 发表于 2015-6-16 21:39:26

赞一个

hunrybecky · 发表于 2015-6-16 22:44:25

todaynew的这个报表和上次的合并一下，可以做通用报表了。

盗梦 · 发表于 2015-6-17 08:50:44

可以考虑每次操作后，刷新之前，先记录当前焦点位置。刷新之后，再定位回去 ^_^

todaynew · 发表于 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

admin · 发表于 2015-6-17 17:58:38

赞一个

cpxie · 发表于 2015-6-17 19:36:41

膜拜啊

admin · 发表于 2015-6-18 09:50:42

的确很强大！

zhao__feng · 发表于 2015-7-1 19:39:54

谢谢

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训2群 (163530137)
Access免费培训群 (833510950)
Access免费培训群2 (792054000)
Access交流总群 (5004108)

主题相关群

地区相关群[您还没设置居住地]

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

本帖子中包含更多资源

评分

本帖被以下淘专辑推荐:

群介绍
主题无相 (随机显示版	同地区群块其他地区)