sort شدن ستون dbgrid با کلیک بر روی عنوان آن

[Kamyar.Kimiyabeigi]

اگر شما از ADO استفاده میکنین کد زیر در OntitleClick مشکلتونو حل میکنه

  if Pos('ASC', ADOTable1.Sort) > 0 then

    ADOTable1.Sort := Column.FieldName + ' DESC '

  else

    ADOTable1.Sort := Column.FieldName + ' ASC ';