вместе с True dbgrid поставляется Truedatacontrol, ложишь его на форму, подцепляешь тот же рекордсет - и вот тебе recordnavigator; щелчок на caption обрабатываешь, устанавливая свойство sort, равное полю колонки, по caption которой щелкнули - и вот у тебя сортировка столбцов; Set TDBGrid.DataSource = рекордсет, и вот у тебя подцеплен рекордсет

про календарик тоже написать, или сами сообразим показать календарь при щелчке на ячейку?

янус - тоже хороший грид, quantrumgrid - вообще супер, гридов, в которых просто надо писать sql и больше ВООБЩЕ ничего не делать - ИМХО НЕТ, даже в акцессе и в poweb builder'овском datawindow(ИМХО: лучший грид на свете) приходится уйму кода писать
------------------
arbeit macht frei

НастенькаBob, не могли бы вы подробнее об этом sort. можно код.

первый щелчок - сортировка по этому полю asc, щелкаешь снова - desc, потом без сортировки и так по кругу, картиночка в заголовок колонки подгружается, где показано куда отсортированы записи

Private Sub TDBGrid1_HeadClick(ByVal ColIndex As Integer)
Dim max_col As Long
Dim i As Long
Dim msg As Long
Dim key_str_str As String
Dim rs As ADODB.Recordset 'РЕКОРДСЕТ
Dim str_sq As String
Dim str_sq2 As String
On Error Resume Next
Set rs = New ADODB.Recordset
str_sq = s.last_kv_select
Call sql_parts(str_sq)
str_sq2 = strselect & " " & strwhere & " "
''Очистка от старых сортировок
'Set TDBGrid1.DataSource = s.rs_kontr_vrem("")
max_col = TDBGrid1.Columns.Count - 1
''Очистка столбцов от картинок
If ColIndex <> 100 Then
For i = 0 To max_col
TDBGrid1.Splits(0).Columns(i).HeadingStyle.ForegroundPicturePosition = dbgFPTextOnly
Next i

If pr_s_s = ColIndex Then
If pr_s > 1 Then pr_s = 0 Else pr_s = pr_s + 1
Else
pr_s_s = ColIndex
For i = 0 To max_col
TDBGrid1.Splits(0).Columns(i).HeadingStyle.ForegroundPicturePosition = dbgFPTextOnly
Next i
pr_s = 1
End If
If pr_s = 1 Then
TDBGrid1.Splits(0).Columns(ColIndex).HeadingStyle.ForegroundPicturePosition = 2

rs.Source = str_sq2 & " order by " & TDBGrid1.Columns(ColIndex).DataField & " ASC"


TDBGrid1.Splits(0).Columns(ColIndex).HeadingStyle.ForegroundPicture = LoadResPicture(101, vbResBitmap)
ElseIf pr_s = 0 Then
rs.Source = str_sq2
'Set TDataLite1.DataSource = s.rs_kontr_vrem("")

Else
TDBGrid1.Splits(0).Columns(ColIndex).HeadingStyle.ForegroundPicturePosition = 2
rs.Source = str_sq2 & " order by " & TDBGrid1.Columns(ColIndex).DataField & " DESC"

TDBGrid1.Splits(0).Columns(ColIndex).HeadingStyle.ForegroundPicture = LoadResPicture(102, vbResBitmap)

End If
'If ColIndex = 2 Then MsgBox "Сортировка по этому полю НЕВОЗМОЖНО!!!", vbInformation
End If
pr_s_s = ColIndex

rs.ActiveConnection = s.cnn_upr
rs.CursorLocation = adUseServer
rs.CursorType = adOpenKeyset
rs.LockType = adLockOptimistic
rs.Open


Set TDataLite1.DataSource = rs
Set TDBGrid1.DataSource = TDataLite1
Set TDBGrid2.DataSource = s.rs_user
Set Me.txtprim.DataSource = TDataLite1

Set rs = Nothing


End Sub