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

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

對(duì)于數(shù)據(jù)高亮顯示，比較簡(jiǎn)單的辦法可以通過(guò)條件格式。可以設(shè)置各種突出的樣式

這里介紹一下在報(bào)表中，把指定范圍的數(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 '畫(huà)橢圓 
    End If 
End Sub 

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