[原創(chuàng)分享]一個簡單報表中自動畫表格及自動補空行的函數(shù)

紅塵如煙

'=================================================================================================
'-函數(shù)名稱： ReportFormat
'-功能描述： 對報表進(jìn)行格式化,
'-輸入?yún)��?shù)： 參數(shù)1：rpt ----需要格式化的報表
' 　　　　　 參數(shù)2：　　ctlID----設(shè)置序號的控件
' 　　　　　 參數(shù)3：　　FormatMode----格式化樣式: 0--方格式,1--橫格式,2--豎格式
' 　　　　　 參數(shù)4：　　FillBlankline----true在最后一頁補空行,false在最后一頁不補空行
'-返回參數(shù)： True 設(shè)置成功，F(xiàn)alse設(shè)置失敗
'-使用示例： ReportFormat Me, txtID
'-使用注意： 必須有一個作為序號的文本框類控件,將其控件來源設(shè)為"=1",運行總和設(shè)為"全部之上",
'  　　　　　最左邊的控件必須為主體節(jié)中最先創(chuàng)建的控件,如果不是,可以通過將其它控件進(jìn)行剪切-
'  　　　　　粘貼操作來實現(xiàn)
' 　　　　　 最右邊的控件必須為主體節(jié)中最后創(chuàng)建的控件,如果不是,可以通過將其進(jìn)行剪切-粘貼操
' 　　　　　 作來實現(xiàn)
'-兼 容 性： 不支持報表頁眉和報表頁腳及自定義節(jié),由于表格行數(shù)是以第1頁記錄數(shù)為準(zhǔn),所以當(dāng)打印
'  　　　　　數(shù)據(jù)只有1頁時不能實現(xiàn)補空行
'-作    者： 紅塵如煙
'-創(chuàng)建日期： 2008年7月13日
'=================================================================================================

游客，如果您要查看本帖隱藏內(nèi)容請回復(fù)

[ 本帖最后由 紅塵如煙 于 2008-7-19 00:47 編輯 ]

tmtony

照收不誤!!

簡

看你的帖子內(nèi)容還要邁道坎，不過邁這個坎也值得。

goto2008

[:50]

藍(lán)天8390

這個功能的確非常有用

fxtest

[:50] [:50]

wjb5645

新東東,好

wjb5645

暈呀,哪的問題?

gggggg83

thanks a lot.
...

mcs0403

學(xué)習(xí)[:50]