عناوين الحقول في عنصر DBGrid

اقتباس

AdoQuery.FieldByName('Mon4').DisplayLabel:=AdoTable.FieldByName('Mon4').DisplayLabel

الحل الذي قمت به صحيح و لكن اين قمت بكتابة هذا الكود؟

اقتباس

ولكن عند اختياري عدد كبير من الحقول بتعليمة Select أو عندما أختار الحقول كلها أشعر بأن عملية الإسناد السابقة بطيئة بعض الشيء

هل تقصد أنك تكرر هذه التعليمة لكل حقل لذلك تجد أن هناك طريقة أفضل, إن كان ذلك صحيحا فبإمكانك تضمين ذلك في حلقة

for i:= 0 to Query.FieldCount-1 do
  Query.Fields.DisplayTitle:= Table.FieldByName(Query.Fields.FieldName).DisplayTitle

أما أن تكون العملية بطيئة فهذا مستحيل!

الأخ وائل :

أضع الكود بعد عملية الاستعلام أي بعد أن أكتب عبارات SQLوأقوم بعمل AdoQuery.Open .

الأخ فراس :

طبعاً أستخدم حلقة For وإلا لا يكون عملاً إذا قمت بغسناد كل حقل .

الأمر معي يتم تنفيذه بشكل ممتاز ولكني أشعر بأن هناك طريقة أسهل من حلقة For لجميع الحقول المختارة ..

تحياتي لكم .

اقتباس

طبعاً أستخدم حلقة For وإلا لا يكون عملاً إذا قمت بإسناد كل حقل

ذكرت أولا:

اقتباس

أشعر بأن عملية الإسناد السابقة بطيئة بعض الشيء والبرنامج يأخذ وقتاً حتى ينفذ الأمر

اقتباس

الأمر معي يتم تنفيذه بشكل ممتاز

الأخ فراس :

أقصد عملية الإسناد التي ضمن حلقة For

شكراً لك .