delphi4arab منتديات دلفي للعرب

نسخة كاملة : كيف أرتب محتوى الجدول
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم
كيف أرتب محتوى الجدول ترتيبا تصاعديا أو تنازليا من خلال دلفي علما أني أستخدم دلفي 2010 وقاعدة بيانات أكسس.
وشكرا لكم وبارك الله فيكم.
وعليكم السلام
إن كنت تقصد بـ "محتوى الجدول" الحقل
فاستخدم Sort تعمل في معظم قواعد بيانات ADO
شيء مثل:
PHP كود :
procedure TDBGrid.SortColumn(Column: TColumn);
begin
  
if (not Assigned(Column)) or
     (
not Assigned(Column.Field)) or
//     (not Column.Grid.DataSource.DataSet.Active) or
     
(not (DataSource.DataSet is TCustomADODataSet))
     
then Exit;
  try
    
with TCustomADODataSet(Column.Grid.DataSource.DataSet) do
    if 
Sort = Column.FieldName then
      Sort 
:= Column.FieldName + ' DESC'
    
else
      
Sort := Column.FieldName;
  
except
    
Exit;
  
end;
end; 
بارك الله فيك
لم أفهم TDBGrid.SortColumn يعني في أي حدث أضع هذا الكود وحبذا لو تضع مثال
وشكرا