السلام عليكم ورحمة الله عالى وبركاته
اثنا الضغط علة زر حساب ما بداخل DBGRID
يكتب لي هذا الإنذار في حالة وجود حقل فارغ بالديبقريد
impossible de convertir le variant de type [Null] en type [Double].
ماذا يعني هذا وما الحل لهذا المشكل
علما انني استعمل لغة الدلفي 7
ارجو حل لهذا وشكرًا جزيلاً
السلام عليكم
اقتباسماذا يعني هذا
هو واضح من الرسالة لا يستطيع التحويل null الى عدد
اقتباسوما الحل لهذا المشكتله
الحل
TRY ........ EXCEPT النتيجه ....Value:=0; END;
او
IF الحقل الاول <> null AND الحقل 2 ...... ElSE النتيجه ....Value:=0;
او بضع قيمه ابتدائية للحقول علي مستوي القاعدة او على المكون table
لاحض الصورة
تم تعديل هذه المشاركة بواسطة زكيري عبد العالي في 7 أبريل 2008 في 11:35
زكيري عبد العالي كتب:السلام عليكمهو واضح من الرسالة لا يستطيع التحويل null الى عدد
الحل
TRY ........ EXCEPT النتيجه ....Value:=0; END;او
IF الحقل الاول <> null AND الحقل 2 ...... ElSE النتيجه ....Value:=0;او بضع قيمه ابتدائية للحقول علي مستوي القاعدة او على المكون table
لاحض الصورة
مشكور لكن ارجو التوضيح اكثر بالنسبة للأكواد
ماذا تعني بالنقط
السلام عليكم
أخي الكريم ما قصده الأخ زكيري عبد العالي بالنقاط هي الأوامرو العمليات التي تريدها
كمثال إن كنت ترغب بتحميل متحول بقيمة معينة من إحدى الخلايا في الجدول
فبإستخدامك لطريقة الأخ زكيري عبد العالي تقوم بوضع تعليمة التحميل بين try و except و قم بإعطاء المتحول قيمة ثابتة بين except و end
يقوم البرنامج بتنفيذ ما بين try و except و في حال حدوث خطأ (كأن تكون الخلية فارغة) ينفذ ما بين except و end أرجو أن يكون الشرح كافيا
مثال كتوضيح عملي
procedure TForm1.Button1Click(Sender: TObject); var a : integer ; begin try a := Table1.FieldValues['id'] ; except on E : Exception do a := 0 ; end ; end;
I'm Away For Sometimes
I'll Finish My Works
Come Back Soon
More Study > More Search > More Try > More Learning > Great Success
rober كتب:السلام عليكمأخي الكريم ما قصده الأخ زكيري عبد العالي بالنقاط هي الأوامرو العمليات التي تريدها
كمثال إن كنت ترغب بتحميل متحول بقيمة معينة من إحدى الخلايا في الجدول
فبإستخدامك لطريقة الأخ زكيري عبد العالي تقوم بوضع تعليمة التحميل بين try و except و قم بإعطاء المتحول قيمة ثابتة بين except و end
يقوم البرنامج بتنفيذ ما بين try و except و في حال حدوث خطأ (كأن تكون الخلية فارغة) ينفذ ما بين except و end أرجو أن يكون الشرح كافيا
مثال كتوضيح عملي
procedure TForm1.Button1Click(Sender: TObject); var a : integer ; begin try a := Table1.FieldValues['id'] ; except on E : Exception do a := 0 ; end ; end;
مشكور أخي على الرد وجزاكم الله كل خير وسأجرب ما أفدتني به
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…