【Access小品】錦上添花 -- 報表管理器的快捷菜單處理方式

todaynew

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

示例：

視圖：

zhidao

版主厲害啊

zhuyiwen

贊一個

hunrybecky

todaynew的這個報表和上次的合并一下，可以做通用報表了。

盜夢

可以考慮每次操作后，刷新之前，先記錄當前焦點位置。刷新之后，再定位回去  ^_^

todaynew

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

這個細節(jié)提醒的恰當，將SetForm函數(shù)做如下修改即可。
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

贊一個

cpxie

膜拜啊

admin

的確很強大！

zhao__feng

謝謝