يف يمكنني ترتيب تنازلي في الديبقريدdbgrid

مرحبا وتقبل الله منا ومنكم جميعا .

استخدم الكود التالي في حدث كلك على تايتل الديبي قرد

procedure TFunit.DBGrid1TitleClick(Column: TColumn);

begin if DBGrid1.DataSource.DataSet is TCustomADODataSet then
  with TCustomADODataSet(DBGrid1.DataSource.DataSet) do
  begin if (Pos(Column.Field.FieldName, Sort) = 1) and (Pos(' DESC', Sort)= 0) then
      Sort := Column.Field.FieldName + ' DESC'
    else
      Sort := Column.Field.FieldName + ' ASC';
  end;


end;

alswah كتب:

مرحبا وتقبل الله منا ومنكم جميعا .

استخدم الكود التالي في حدث كلك على تايتل الديبي قرد

procedure TFunit.DBGrid1TitleClick(Column: TColumn);

begin if DBGrid1.DataSource.DataSet is TCustomADODataSet then
  with TCustomADODataSet(DBGrid1.DataSource.DataSet) do
  begin if (Pos(Column.Field.FieldName, Sort) = 1) and (Pos(' DESC', Sort)= 0) then
      Sort := Column.Field.FieldName + ' DESC'
    else
      Sort := Column.Field.FieldName + ' ASC';
  end;


end;

شكرًا على الرد

لكني لم افلح في وضع هذا الكود

مع العلم انني استعمل Table

وليس ADO

ارجو التوضيح اكثر ويا ريت لو عدلت لي على المرفق يكون احسن

سيفيدك المرفق و الرابط

المرجع الشامل لجمل SQL

test.rar

قد تعجبك هذه الفكرة

QuerySQL is a global string that holds the SQL-statement. 

begin 
  QuerySQL := 'SELECT * FROM Customer.DB'; 
  Query1.SQL.Add(QuerySQL); 
  Query1.Open; 
end; 


In the DBGrid event OnTitleClick, we just add an ORDER-BY clause to the sql and refresh the query. 

procedure TForm1.DBGrid1TitleClick(Column: TColumn); 
begin 
  witzh Query1 do 
  begin 
	DisableControls; 
	Close; 
	SQL.Clear; 
	SQL.Add(QuerySQL); 
	SQL.Add('ORDER BY ' + Column.FieldName); 
	Open; 
	// Restore the title settings, otherwise everything 
	// will be blue after a while 
	DBGrid1.Columns.RestoreDefaults; 
	Column.Title.Font.Color := clBlue; 
	EnableControls; 
  end; 
end;
http://www.delphi3000.com/articles/article_905.asp?SK=

شكرًا على المجهود يا أخي

بالنسبة لإستعمال SQL

لدي الفرة نوعًا ما

لكن ما أبحث عنه هو

هل من دون استعمال SQL

لا يمكن ترتيب ما بداخل الديبقريد مع المعطيات ذات نفسها من خلال تعاملنا نع Table فقط

هذا ماأسأل عنه واريد أن أفهم

هل انا اتعب في نفسي على الفارغ يعني هل لا داعي للبحث في هذا المجال

ارجو من ذوي الخبرة ان يشيرون علينا بما هو أفضل

وعيد مبروك وكل عام وأنتم بألف خير