access在報(bào)錶中把符閤條件的數(shù)據(jù)圈齣來(lái)

在報(bào)錶展示的數(shù)據(jù)中，我們有時(shí)希望突齣顯示某些符閤條件的數(shù)據(jù)。

對(duì)於數(shù)據(jù)高亮顯示，比較簡(jiǎn)單的辦法可以通過(guò)條件格式?？梢栽O(shè)置各種突齣的樣式

這裡介紹一下在報(bào)錶中，把指定範(fàn)圍的數(shù)據(jù)集 用橢圓圈釋齣來(lái)

通過(guò)下麵代碼，把價(jià)錢(qián)小於等於5的價(jià)錢(qián)用紅色的橢圓圈齣來(lái)

Private Sub 主體_Format(Cancel As Integer, FormatCount As Integer)
    Dim sH As Single
    Dim sV As Single
    Dim sW As Single
 
    If Me.價(jià)錢(qián)<= 5 Then 
     With Me.價(jià)錢(qián) 
       sH = .Left + .Width / 2 '橢圓的位置 
       sV = .Top + .Height / 2 sW = .Width / 2 '設(shè)置橢圓的寬度 
     End With 
     Me.Circle (sH, sV), sW, vbRed, , , 0.3 '畵橢圓 
    End If 
End Sub 

此代碼主要是通過(guò)定位到指定條件的位置，用Circle函數(shù)畵齣指定大小的橢圓