| Предыдущая тема :: Следующая тема |
| Автор |
Сообщение |
freshcoder
Участник
Вступление в Клуб: 08.06.2015
|
 Чт Авг 13, 2015 11:45 Ребят, как поменять цвет ячейки ? |
 |
Полезность: Нет оценки
|
| Хотелось бы, что б при определенном состоянии, менялся цвет ячейки. Насколько я знаю, делается это в Стиле ячеек на VBScript. Но не пойму как сделать правильно. У меня все. Спасибо. |
|
 |
yaffil
Профи
Вступление в Клуб: 18.08.2011
|
| Чт Авг 13, 2015 11:50 |
|
Полезность: 1
|
Зайти в кнопку, стиль ячеек, и сравнивать значения, не забыв на колонке поставить галку "СТИЛЬ"
Пример моей ячйки смотрим если значение не 0 - то красным.
| Код: |
Public Sub Begin(sAlias)
select case sAlias
case "C_DT_ITOG_VAL"
if frm.CurCellValue <> 0 then frm.CurCellStyle.BackColor = vbRed
case "C_DT_ITOG_NACION"
if frm.CurCellValue <> 0 then frm.CurCellStyle.BackColor = vbRed
case "C_KT_ITOG_VAL"
if frm.CurCellValue <> 0 then frm.CurCellStyle.BackColor = vbRed
case "C_KT_ITOG_NACION"
if frm.CurCellValue <> 0 then frm.CurCellStyle.BackColor = vbRed
end select
End Sub
|
|
|
|
Матвеев Евгений
Профи
Вступление в Клуб: 31.01.2012
|
| Чт Авг 13, 2015 19:01 Re: Ребят, как поменять цвет ячейки ? |
|
Полезность: 1
|
| freshcoder пишет: | | Хотелось бы, что б при определенном состоянии, менялся цвет ячейки. Насколько я знаю, делается это в Стиле ячеек на VBScript. Но не пойму как сделать правильно. У меня все. Спасибо. |
Можно увидеть в клиентах --> Физические лица --> Полный список
Колонка "Удостоверение действительно по"
В АСД зайдешь во вьюху, кнопка "Стиль ячеек"
| Код: |
Sub Paint()
If frm.InObjects then
If frm.CurRowAlias("C_DOC#DATE_END") <> "" then
Cnt_Month = frm.CurRowAlias("C_CNT_DATE")
Date_End = frm.CurRowAlias("C_DATE_END")
if Date_End <= Cnt_Month then
frm.CurCellStyle.BackColor = 230
End if
End if
End if
End Sub
Public Sub Begin(sAlias)
select case sAlias
case "C_DOC#DATE_END"
if frm.CurRowAlias("C_CNT") <> "0" and frm.CurRowAlias("C_CNT") <> "" then
Paint
end if
end select
End Sub |
Подкрашивает просроченные документы красной заливкой |
|
|
freshcoder
Участник
Вступление в Клуб: 08.06.2015
|
| Пт Авг 14, 2015 07:16 |
|
Полезность: Нет оценки
|
| Всем спасибо! Разобрался. |
|
|
Tonga
Участник
Вступление в Клуб: 05.12.2012
|
| Ср Фев 17, 2016 18:03 |
|
Полезность: Нет оценки
|
Как сравнить числовые значения? frm.CurRowAlias возвращает строку
| Код: | Sub Paint()
If frm.InObjects then
sld = frm.CurRowAlias("C_SALDO")
summ= frm.CurRowAlias("C_SUMM")
if sld < summ then
frm.CurCellStyle.BackColor = 230
End if
End if
End Sub
Public Sub Begin(sAlias)
select case sAlias
case "C_SUMM"
Paint
case "C_SALDO"
end select
End Sub |
Последний раз редактировалось: Tonga (Ср Фев 17, 2016 18:29), всего редактировалось 2 раз(а) |
|
|
prog
Эксперт
Вступление в Клуб: 03.03.2008
|
| Ср Фев 17, 2016 18:11 |
|
Полезность: Нет оценки
|
| cInt() |
|
|
Tonga
Участник
Вступление в Клуб: 05.12.2012
|
| Ср Фев 17, 2016 18:26 |
|
Полезность: Нет оценки
|
Выдает ошибку "Переполнение cInt"
Изменил так:
| Код: | Sub Paint()
If frm.InObjects then
sld = frm.CurRowAlias("C_SALDO")
summ= frm.CurRowAlias("C_SUMM")
if cInt(sld) < cInt(summ) then
frm.CurCellStyle.BackColor = 230
End if
End if
End Sub
Public Sub Begin(sAlias)
select case sAlias
case "C_SUMM"
Paint
case "C_SALDO"
end select
End Sub |
|
|
|
Tonga
Участник
Вступление в Клуб: 05.12.2012
|
| Ср Фев 17, 2016 19:08 |
|
Полезность: Нет оценки
|
| Tonga пишет: |
Выдает ошибку "Переполнение cInt"
Изменил так:
| Код: | Sub Paint()
If frm.InObjects then
sld = frm.CurRowAlias("C_SALDO")
summ= frm.CurRowAlias("C_SUMM")
if cInt(sld) < cInt(summ) then
frm.CurCellStyle.BackColor = 230
End if
End if
End Sub
Public Sub Begin(sAlias)
select case sAlias
case "C_SUMM"
Paint
case "C_SALDO"
end select
End Sub |
|
разобрался, так как сумма не целое чисто, то нужно использовать cDbl()
Спасибо! |
|
|
prog
Эксперт
Вступление в Клуб: 03.03.2008
|
| Ср Фев 17, 2016 19:10 |
|
Полезность: Нет оценки
|
| ура |
|
|
|
О проекте
Поиск
Отзывы
Регистрация
Вход
