Сортирую строковые поля по щелчку на заголовке таблицы, но сортируется как-то странно.
Private Sub TDBGrid1_HeadClick(ByVal ColIndex As Integer)
Dim sSearch As String
sSearch = "SELECT * FROM TelOrgCity ORDER BY " & TDBGrid1.Columns(ColIndex).DataField & ";"
With TelOrg
.RecordSource = sSearch
.Refresh
End With
End Sub
С начала идут записи на букву ч, затем цифры, далее буквы группами (а, в, д, г и т.д.) а надо по алфавиту.
