access在报表中把符合条件的数据圈出来

在报表展示的数据中，我们有时希望突出显示某些符合条件的数据。

对于数据高亮显示，比较简单的办法可以通过条件格式。可以设置各种突出的样式

这里介绍一下在报表中，把指定范围的数据集 用椭圆圈释出来

通过下面代码，把价钱小于等于5的价钱用红色的椭圆圈出来

Private Sub 主体_Format(Cancel As Integer, FormatCount As Integer)
    Dim sH As Single
    Dim sV As Single
    Dim sW As Single
 
    If Me.价钱<= 5 Then 
     With Me.价钱 
       sH = .Left + .Width / 2 '椭圆的位置 
       sV = .Top + .Height / 2 sW = .Width / 2 '设置椭圆的宽度 
     End With 
     Me.Circle (sH, sV), sW, vbRed, , , 0.3 '画椭圆 
    End If 
End Sub 

此代码主要是通过定位到指定条件的位置，用Circle函数画出指定大小的椭圆