| Предыдущая тема :: Следующая тема |
| Автор |
Сообщение |
Archangel
Участник
Вступление в Клуб: 01.07.2009
|
 Вт Дек 01, 2009 10:29 Стили ячеек |
 |
Полезность: Нет оценки
|
Добрый день коллеги.
Подскажите пожалуйста, может кто знает. Возможно ли в представлении используя "Стили ячеек" раскрашивать одно поле на основе проверки другого.
Т.е. проверяется поле 1 и в зависимости от его значения раскрашивается поле 2, либо поле 3 |
|
 |
alexiy
Профи
Вступление в Клуб: 29.06.2007
|
| Вт Дек 01, 2009 10:40 |
|
Полезность: 4
|
пример:
| Код: | Public Sub Begin(sAlias)
select case sAlias
case "C_DOCUMENT_NUM"
select case frm.CurRow("FOLDER.STATE")
case "PROV"
frm.CurCellStyle.BackColor = vbGreen
case "FORM", "PRO"
frm.CurCellStyle.BackColor = vbYellow
case else
frm.CurCellStyle.BackColor = vbRed
end select
end select
End Sub |
где FOLDER.STATE – квалификатор проверяемого поля.
_________________
two bee or not two bee |
|
|
IBSO
Профи
Вступление в Клуб: 20.08.2009
|
| Вт Дек 01, 2009 19:44 |
|
Полезность: 1
|
| Например так написано представление Платежные документы - Документы на счете невыясненных (локальная для банка) или Задание по расписанию - Список заданий (color) ну и т.д. |
|
|
Archangel
Участник
Вступление в Клуб: 01.07.2009
|
| Пн Дек 07, 2009 11:21 |
|
Полезность: Нет оценки
|
Спасибо с этим разобрался)))
Не могу найти пример синтаксиса добавления условия.
Необходимо раскрасить поле при 3 условиях.
Примерно так.
| Код: |
if frm.CurCellValue >0 and (frm.CurCellAlias("t1") > 0 or
InStr(frm.CurCellAlias("t1"),"НЕТ") > 0 or
InStr(frm.CurCellAlias("t2"),"НЕТ") > 0 )
then frm.CurCellStyle.BackColor = vbRED
|
Смысл такой, но не могу понять как правильно нужно указывать условия |
|
|
Archangel
Участник
Вступление в Клуб: 01.07.2009
|
| Пн Дек 07, 2009 12:14 |
|
Полезность: Нет оценки
|
| Archangel пишет: | Спасибо с этим разобрался)))
Не могу найти пример синтаксиса добавления условия.
Необходимо раскрасить поле при 3 условиях.
Примерно так.
| Код: |
if frm.CurCellValue >0 and (frm.CurCellAlias("t1") > 0 or
InStr(frm.CurCellAlias("t1"),"НЕТ") > 0 or
InStr(frm.CurCellAlias("t2"),"НЕТ") > 0 )
then frm.CurCellStyle.BackColor = vbRED
|
Смысл такой, но не могу понять как правильно нужно указывать условия |
Проблема в конструкции "or" я так понимаю.
Я реализовал это так:
| Код: |
if frm.CurCellValue >0 and (frm.CurCellAlias("t1") > 0) then frm.CurCellStyle.BackColor = vbRED
if frm.CurCellValue >0 and (InStr(frm.CurCellAlias("t1"),"НЕТ") > 0 )
then frm.CurCellStyle.BackColor = vbRED
if frm.CurCellValue >0 and (InStr(frm.CurCellAlias("t2"),"НЕТ") > 0 )
then frm.CurCellStyle.BackColor = vbRED
|
Но все же интересно как правильно должна быть описана конструкция "or". |
|
|
r00st
Эксперт
Вступление в Клуб: 14.09.2007
|
| Пн Дек 07, 2009 13:13 |
|
Полезность: 1
|
В скобки надо брать условие:
| Код: | | ... or (InStr(frm.CurCellAlias("t1"),"НЕТ") > 0) or ... |
|
|
|
Archangel
Участник
Вступление в Клуб: 01.07.2009
|
| Пн Дек 07, 2009 14:10 |
|
Полезность: Нет оценки
|
| r00st пишет: | В скобки надо брать условие:
| Код: | | ... or (InStr(frm.CurCellAlias("t1"),"НЕТ") > 0) or ... |
|
Спасибо за помощь, я уже разобрался)))) Я пробовал скобки, но ставил больше чем надо)))) |
|
|
|
О проекте
Поиск
Отзывы
Регистрация
Вход
