Private Sub ОбластьДанных_Format(Cancel As Integer, FormatCount As Integer)
Static str As String
If FormatCount = 1 Then
If str <> Me.Раздел And Me.Раздел Like "*[0-9]*" Then
Me.Section(0).BackColor = RGB(255, 0, 0)
str = Me.Раздел
Else
Me.Section(0).BackColor = RGB(255, 255, 255)
End If
End If
End Sub
|