數(shù)據(jù)庫(kù)應(yīng)用中很關(guān)鍵的數(shù)據(jù)輸出形式是“報(bào)表”，ACCESS提供的報(bào)表向?qū)В会槍?duì)國(guó)外的報(bào)表形式，就是線條較少的報(bào)表。而我們的中文報(bào)表，傳統(tǒng)形式是線條較多的網(wǎng)格形式，所以，不能簡(jiǎn)單地通過(guò)向?qū)?lái)完成。現(xiàn)就本人使用ACCESS的經(jīng)驗(yàn)，結(jié)合實(shí)例，談一下如何在ACCESS數(shù)據(jù)庫(kù)中制作我們的中文報(bào)表。

---- “產(chǎn)品銷售利潤(rùn)明細(xì)表”的制作：

---- 1. 新建報(bào)表：選“自動(dòng)報(bào)表：表格”，數(shù)據(jù)來(lái)源選表如XSLR表，確定后，產(chǎn)生一個(gè)簡(jiǎn)單的報(bào)表，在此基礎(chǔ)上進(jìn)行修改。

---- 2. 頁(yè)面設(shè)置：邊距方面，調(diào)整靠左、靠右來(lái)達(dá)到最大打印范圍。頁(yè)面方面，打印方向設(shè)置為縱向，紙張大小選自定義大小，寬度為1660(最大)，長(zhǎng)度為1100(一頁(yè)紙長(zhǎng)度)，單位為0.01英寸。

---- 3. 版面設(shè)置：刪除報(bào)表頁(yè)眉、報(bào)表頁(yè)腳。將頁(yè)面頁(yè)眉的內(nèi)容刪除。在頁(yè)面頁(yè)眉中插入對(duì)象，選MICROSOFT WORD文檔，在WORD文檔中畫出表頭，填上內(nèi)容，注意，漢字之間要空一格，否則，到ACCESS報(bào)表輸出時(shí)，漢字會(huì)出現(xiàn)亂碼。對(duì)此OLE控件設(shè)置屬性：背景樣式為“透明”，邊框樣式為“透明”。在主體部件插入對(duì)象，選MICROSOFT WORD文檔，在WORD文檔中畫出表格線方格，行寬可比表頭行寬大一些，對(duì)此OLE控件設(shè)置屬性：背景樣式為“透明”，邊框?yàn)閷?shí)線，邊框?qū)挾葹榧?xì)線，設(shè)置各字段文字類型及大小，將各字段調(diào)整到方格內(nèi)。

---- 4. 在DETAIL的FORMAT事件中寫入代碼，以完成對(duì)零值的屏蔽。代碼如下：(A3至A13為數(shù)值型字段)

Private Sub Detail_Format

(Cancel As Integer, FormatCount As Integer)

If A3 = 0 Then

A3.Visible = False

Else

A3.Visible = True

End If

If A4 = 0 Then

A4.Visible = False

Else

A4.Visible = True

End If

If A7 = 0 Then

A7.Visible = False

Else

A7.Visible = True

End If

If A8 = 0 Then

A8.Visible = False

Else

A8.Visible = True

End If

If A9 = 0 Then

A9.Visible = False

Else

A9.Visible = True

End If

If A11 = 0 Then

A11.Visible = False

Else

A11.Visible = True

End If

If A12 = 0 Then

A12.Visible = False

Else

A12.Visible = True

End If

If A13 = 0 Then

A13.Visible = False

Else

A13.Visible = True

End If

End Sub