| |
|
|
| | Здравствуйте. Недавно образовалась такая задача. Есть отчет в котором есть разделы (например: поступление денег, расход, остаток и тд.) как сделать так, чтобы именно эти записи выделить каким либо цветом автоматически при загрузке отчета. Разделы отдельно не группируются, а идут параллельно с записями подряд. Я выбираю свойство не выводить повторы и хочу чтобы только первое появление записи выделялось цветом... | |
| |
| |
| |
|
|
| | Можно так:
Private Sub ОбластьДанных_Print(Cancel As Integer, PrintCount As Integer)
Static str As String
If PrintCount = 1 Then
If str <> Me.Раздел 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
|
| |
| |
| |
| |
|
|
| | Практически так. А можно сделать так, чтобы сначало просматривалось вхождение например цифры 1 или 2 или 3 или 4 и тд в поле раздел. А потом поле закрашивалось, а если не входит, то и трогать не надо... | |
| |
| |
|
|
| |
|
|
| | А как? Подскажи пожалуйста :-) | |
| |
| |
| |
|
|
| |
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
|
| |
| |
| |
| |
|
|
| | То что надо!!!!!! Спасибо тебе большое Lukas... | |
| |
| |
