Оптимизация кода для MSHFlexGrid

[VAngel]

MSHFlexGrid с 2 столбцами, в первом текст, во втором цифры
При совпадении имен цифры складываются
Для нее написан такой код:

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

a=0
For i = 1 To fl.Rows - 1
fl.Col = 1
fl.Row = i
    If fl.Text = Text1.Text Then
        fl.Col = 2
        a = a + Val(fl.Text)
    End If
Next i

Работает но очень медленно, особенно когда большое количество записей, скажите как можно ускорить данный процесс?

[Ennor]

Данные с сервера БД берешь? Если да, то такие вещи надо серверным кодом и обрабатывать, он под это заточен.

[Чудик]

Думаю, что вместо fl.Text лучше будет fl.TextMatrix(Row,Col) - читабельней, меньше и, кажеться, быстрее.

[VAngel]

2 Ennor
Да нет, все что я хотел узнать подсказал Чудик

2 Чудик
Спасибо это очень помогло

[VAngel]

Скажите может есть простой способ форматирования данных в ячейках, например по алфавиту?

[Чудик]

Свойство Sort - установить тип сортировки. Свойство может быть ровно значению от 0 до 9. Экспериментируй.

[VAngel]

У меня такая вещь:
У меня в столбцах и строках по одной фиксированой ечейке selectionMode = 1 - By Row, т. е. выбираются чисто строки, кроме первой фиксированой. А теперь вопрос :
А можно ли определить нажатие на фиксированую ячейку?
А можно ли на нее нажать вобще?

[tyomitch]

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

Private Sub MSFlexGrid1_Click()
Debug.Print MSFlexGrid1.MouseCol, MSFlexGrid1.MouseRow
End Sub