ماهو الحل هذا الكود لترتيب اعمدة dbgrid تنازليا عند النقر عليها
#1
وضعت هذا الكود
كود :
{$J+}
const PreviousColumnIndex : integer = 0;
{$J-}
begin
 if DBGrid1.DataSource.DataSet is TCustomADODataSet then
 with TCustomADODataSet(DBGrid1.DataSource.DataSet) do
 begin
   try
     DBGrid1.Columns[PreviousColumnIndex].title.Font.Style :=
     DBGrid1.Columns[PreviousColumnIndex].title.Font.Style - [fsBold];
  except
   end;
   DBGrid1.Columns[PreviousColumnIndex].title.Font.Style :=
   DBGrid1.Columns[PreviousColumnIndex].title.Font.Style + [fsBold];
   PreviousColumnIndex := DBGrid1.Columns[PreviousColumnIndex].index;
   if (Pos(DBGrid1.Columns[2].Field.FieldName, Sort) = 1)
   and (Pos(' DESC', Sort)= 0) then
     Sort := DBGrid1.Columns[2].Field.FieldName + ' DESC'
   else
     Sort := DBGrid1.Columns[2].Field.FieldName + ' ASC';
 end;
ولكن تظهر تلك الراسالة
ما هو الحل
الرد
#2

1- ماهو اصدار دلفي المستخدم ؟
2- ماهي رسالة الخطأ كاملة ؟
رَبَّنَا اغْفِرْ لِي وَلِوَالِدَيَّ وَلِلْمُؤْمِنِينَ يَوْمَ يَقُومُ الْحِسَابُ
الرد
#3
(12-09-2017, 09:24 PM)B.M.AbdelAziZ كتب :  
1- ماهو اصدار دلفي المستخدم ؟
2- ماهي رسالة الخطأ كاملة ؟


اصدار الدلفى : دلفى7
الرساله هى 
type mismatch
الرد
#4
لا يبدو اي خطأ في الكود فوق في دلفي 7
ما السطر الذي يظهر به الخطأ ؟ او اذكر رسالة الخطأ كاملة كما اظهرها الCompiler
رَبَّنَا اغْفِرْ لِي وَلِوَالِدَيَّ وَلِلْمُؤْمِنِينَ يَوْمَ يَقُومُ الْحِسَابُ
الرد
#5
جرب محتوى هذا الدرس
من اجل الترتيب ممكن يفيدك
https://www.youtube.com/watch?v=NiZWhBMfLdE
[-] كل من 1 user says قال شكرا ل rahiche على المشاركة المفيدة
  • mobile
الرد


التنقل السريع :


مستخدمين يتصفحوا هذا الموضوع: 1 ضيف