| |
 14 Кб. |
|
| | См.вложение.->
Задача
. При условном форматировании в сочетании с расширением полей возникают проблемы полной закраски или "затирания" границ.
Посмотрите пример. Там три варианта.
В идеале нужно:
Закрасить поле по условию, если оно (поле) расширено по данным и обрисовано рамкой. | |
| |
| |
| |
30 Кб. |
|
| | так что ли | |
| |
| |
| |
|
|
| | да нет! так-то нет проблем.
поле цена (где 1000) д.б. закрашено по высоте поля "Naim"
Закрасить поле по условию, если оно (поле) расширено по данным другого поля и обрисовано рамкой.
|
| |
| |
| |
| |
25 Кб. |
|
| | ты до конца не дошел - с фоновым полем, дай ему расширение ДА
поставь туда
=[Naim]
и добавь в обработку
Private Sub ОбластьДанных_Format(Cancel As Integer, FormatCount As Integer)
If Me.Stoim < 500 Then
FON.ForeColor = vbYellow
FON.BackColor = vbYellow
Else
FON.ForeColor = vbRed
FON.BackColor = vbRed
End If
End Sub
|
| |
| |
| |
| |
|
|
| | вот только оно должно быть равным по ширине полю Naim - эт хуже
можно написать обработку поля Naim
1. вычислять длину строки Naim в пикселях (Лукас как то пример показывал)
2. из 1 получить кол-во строк в Naim
3. по ширине поля Stiom загнать туда строку которая даст нужно кол-во строк по высоте | |
| |
| |
| |
|
|
| | спасибо буду рыть в этом направлении
Private Sub ОбластьДанных_Format(Cancel As Integer, FormatCount As Integer)
If Me.Stoim < 500 Then
FON.ForeColor = vbYellow
FON.BackColor = vbYellow
Else
FON.ForeColor = vbRed
FON.BackColor = vbRed
End If
End Sub
|
вот это хорошо!!!! | |
| |
| |
| |
|
|
| | Попробовал. Cрабатывает FON.BackColor ! c размером по горизонтали думаем. | |
| |
| |
