delphi4arab منتديات دلفي للعرب
كيف أرتب محتوى الجدول - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف أرتب محتوى الجدول (/showthread.php?tid=2559)



كيف أرتب محتوى الجدول - وليد - 10-11-2010

السلام عليكم
كيف أرتب محتوى الجدول ترتيبا تصاعديا أو تنازليا من خلال دلفي علما أني أستخدم دلفي 2010 وقاعدة بيانات أكسس.
وشكرا لكم وبارك الله فيكم.


كيف أرتب محتوى الجدول - kachwahed - 10-11-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; 



كيف أرتب محتوى الجدول - وليد - 11-11-2010

بارك الله فيك
لم أفهم TDBGrid.SortColumn يعني في أي حدث أضع هذا الكود وحبذا لو تضع مثال
وشكرا