- Код: Выделить всё
Private Sub DoSort()
MSHFlexGrid1.Col = 0
MSHFlexGrid1.ColSel = MSHFlexGrid1.Cols - 1
MSHFlexGrid1.Refresh
MSHFlexGrid1.Sort = 1
End Sub
Но он напрочь отказывается работать. Выдаёт ошибку : "Method 'Sort' of object 'IMSHFlexGrid' failed"
Что делать ? Как отсортировать данные в Гриде по какому-то столбцу ?
Заранее спасибо!