VBNet - Форум - Помогите с гридом (GRID)

Вопрос: Помогите с гридом (GRID) Добавлено: 25.07.02 00:04

Автор вопроса: Tovdi | ICQ: 160516960

Мне нужен грид в котором динасически можна было бы менять цвет записи (фона, шрифта ) в зависемости от даних.
Например если >0 черный,<0, красный ну и т.д.
Есть ли такой грид который это потдерживает, и как сие сделать

Ответить

Ответы Всего ответов: 3

Номер ответа: 1
Автор ответа:

LIS

Вопросов: 7
Ответов: 256

Профиль | | #1

Добавлено: 25.07.02 01:28

Any grid has option to change color , JUST do it manually !

Ответить

Номер ответа: 2
Автор ответа:

Alex Criv

Вопросов: 2
Ответов: 1

Профиль | | #2

Добавлено: 25.07.02 07:20

Флекси грид такое позволяе, в свойствах у него вкладочка Колор

Ответить

Номер ответа: 3
Автор ответа:

DimaS

Вопросов: 2
Ответов: 85

Профиль | | #3

Добавлено: 25.07.02 09:29

Пример выдернул из своего старого кода:

dbgSpravAkt - стандартный DbGrid

datSpravAkt - стандартный элемент Data

Sub Form1_Load()

dbgSpravAkt.FetchRowStyle = True

Set OrderItems = dbgSpravAkt.Styles.Add("ItemSelected")
OrderItems.BackColor = &HFF00&
OrderItems.ForeColor = vbBlack

Set OrderItems = dbgSpravAkt.Styles.Add("ItemSelected1")
OrderItems.BackColor = &HFFFF&
OrderItems.ForeColor = vbBlack

Set OrderItems = dbgSpravAkt.Styles.Add("ItemSelected2")
OrderItems.BackColor = &HFFFF00
OrderItems.ForeColor = vbBlack

Set OrderItems = dbgSpravAkt.Styles.Add("ItemSelected3")
OrderItems.BackColor = vbWhite
OrderItems.ForeColor = vbBlack

End Sub

Private Sub dbgSpravAkt_FetchRowStyle(ByVal Split As Integer, Bookmark As Variant, ByVal RowStyle As StyleDisp)
Set rs = datSpravAkt.Recordset.Clone

rs.Bookmark = Bookmark

      If rs("Client_2.NameClient") = "ММК" Then
        RowStyle = "ItemSelected"
        RowStyle = "ItemSelected"
      End If
      If rs("Client_2.NameClient") = "МЕЧЕЛ" Then
        RowStyle = "ItemSelected1"
        RowStyle = "ItemSelected1"
      End If
      If rs("Client_2.NameClient") = "ЧЭМК" Then
        RowStyle = "ItemSelected2"
        RowStyle = "ItemSelected2"
      End If
      If rs("Client_2.NameClient") = "ОХМК" Then
        RowStyle = "ItemSelected3"
        RowStyle = "ItemSelected3"
      End If

End Sub

Ответить

Страница: 1 |