MSHFlexGrid и выделение строк цветом

[slope]

есть база данных, в ней несколько таблиц, в одной из таблиц в поле pole_color пишется код цвета
используется Программное связывание данных с элементом управления Hierarchical FlexGrid (MSHFlexGrid)типа
.
.
.
Set MSHFlexGrid.DataSource = Rs
----------------------------------------------------------------------------------------
Подскажите, как сделать выделение строк соотвествующим цветам в поле pole_color???
во время загрузки данных????
Данную тему поднимал на sql.ru (http://sql.ru/forum/actualthread.aspx?tid=704313), но увы...
Может быть как то использовать ленты в гриде? Хотя не все цвета а пару. нечто подобное видел в одной программе.
Спасибо

[Antonariy]

Никак.

[z72]

Напрямую, видимо никак, а окольными путями попробовать можно:

Код: Выделить всё

Dim i As Integer, j As Integer
Dim NumberColor As Integer

With Me.MSHFlexGrid1
    RS.MoveFirst
    i = 1
    Do Until RS.EOF
        If i = .Rows Then Exit Do
        .Row = i
        NumberColor = IIf(IsNull(RS.Fields("pole_color")), 0, RS.Fields("pole_color"))
        For j = 1 To .Cols - 1
            .Col = j
            .CellBackColor = QBColor(NumberColor)
        Next
        RS.MoveNext
        i = i + 1
    Loop
End With

Если цвет в базе хранится в другом формате, то поправь код.

[alibek]

Переношу.
И первое предупреждение.

[slope]

z72, спасибо.
Этот вариант я рассматривал на начальном этапе, долго будет выгружать,
данных много бывает.