Office中國論壇/Access中國論壇

標題: 【Access小品】錦上添花 -- 報表管理器的快捷菜單處理方式 [打印本頁]

作者: todaynew 時間: 2015-6-16 20:14
標題: 【Access小品】錦上添花 -- 報表管理器的快捷菜單處理方式
本帖最后由 todaynew 于 2015-6-17 11:53 編輯

　　昨日里發(fā)了一個關于報表管理器的帖子《護士美眉》，總覺得報表設計部分的處理不夠簡潔，于是乎便決定做一番優(yōu)化。想來想去，似乎用快捷菜單處理應該更為妥帖，按照這個思路對原示例進行了大幅度的修改。最終效果感覺比較滿意，算是對報表管理器研究的錦上添花。

示例：[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

盜夢發(fā)表于 2015-6-17 08:50
可以考慮每次操作后，刷新之前，先記錄當前焦點位置。刷新之后，再定位回去 ^_^

這個細節(jié)提醒的恰當，將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://mzhfr.cn/)