MSHFlexGrid

[Tuco]

Здравствуйте!
Странное дело у меня происходит при работе с этим гридом. Заполняю грид из базы данных. Автоматически он называет колонки названиями полей из базы. Чтобы после каждого заполнения ставить свои названия колонок я написал процедуру:

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

Private Sub GridFormater()
    ' MsgBox "Начало"
    MSHFlexGrid1.TextMatrix(0, 1) = "Название колонки 1"
    MSHFlexGrid1.TextMatrix(0, 2) = "Название колонки 2"
    MSHFlexGrid1.TextMatrix(0, 3) = "Название колонки 3"
    MSHFlexGrid1.TextMatrix(0, 4) = "Название колонки 4"
    MSHFlexGrid1.TextMatrix(0, 5) = "Название колонки 5"


В начале этой процедуры стоит msgbox. Когда он работает - процедура тоже выполняется, но если его запаролить (как в примере) колонки сохраняют названия, данные по умолчанию и не хотят принимать те, которые нужны мне. Что делать?

[GSerg]

Мож рефреш вызвать?

[Tuco]

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

[GSerg]

А, ну doevents тогда

[Tuco]

Ай, Шаман! Ай, шайтан! Ай, спасибо! Работает! Спасибо! Супер! А я две недели мучаюсь, а тут так просто всё! А почему не работало раньше? Что должно было произойти и не происходило?

[GSerg]

WM_PAINT должно было произойти

[Dzhon]

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

Private Sub GridFormater()
    ' MsgBox "Начало"
    MSHFlexGrid1.TextMatrix(0, 1) = "Название колонки 1"
    MSHFlexGrid1.TextMatrix(0, 2) = "Название колонки 2"
    MSHFlexGrid1.TextMatrix(0, 3) = "Название колонки 3"
    MSHFlexGrid1.TextMatrix(0, 4) = "Название колонки 4"
    MSHFlexGrid1.TextMatrix(0, 5) = "Название колонки 5"


А вообще зачем каждый раз к гриду обращаться есть же свойство
Me.mshfgReestr.FormatString = "Столбец1|Столбец2|и т.д.|"

[Tuco]

Спасибо большое!

[ВалГер]

А, ну doevents тогда

Аналогичная проблема с MSHFlexGrid и у меня, но я не понял про DoEvents Если можно, то поподробнее, пожалуйста.

[GSerg]

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

Присвоить значение
DoEvents

[ВалГер]

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

Присвоить значение
DoEvents

Простите, чему присвоить?

[GSerg]

Тому, что должно отрисоваться...

[ВалГер]

Тому, что должно отрисоваться...

А примерчик кода? Пожалуйста!

[Tuco]

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

Private Sub GridFormater()
    DoEvents
    MSHFlexGrid1.TextMatrix(0, 1) = "Название колонки 1"
    MSHFlexGrid1.TextMatrix(0, 2) = "Название колонки 2"
    MSHFlexGrid1.TextMatrix(0, 3) = "Название колонки 3"
    MSHFlexGrid1.TextMatrix(0, 4) = "Название колонки 4"
    MSHFlexGrid1.TextMatrix(0, 5) = "Название колонки 5"

В таком варианте колонки получают названия, которые нужны...

[ВалГер]

Спасибо большое!

[sergey-911]

А есть возможность заставить грид листать данные при прокрутке скрола мыши, если да - то как?

[Dzhon]

Дрова для мыши установить родные!