(29-10-18, 06:21 PM)عبد العزيز البسكري كتب : [ -> ]انتظر اذن أخي الكريم .. الدواء الشافي من استاذنا elgokr
تحياتي
هذه شهادة اعتز بها اخى وحبيبى عبدالعزيز البسكري
ولا اعلم ماذا اقول بعد كلامك هذا
بخصوص مشكلة الاخ محمد خيري
فتلك الرسالة تظهر بسبب عدم وجود اى بيانات بقاعدة بيانات
حيث انه يستخدم السطر التالى
كود :
a = Dst.Tables("Table1").Rows(i)("SerialNo").ToString + 1
لو وضعنا انفسنا مكان البرنامج لقراءة الكود
عند جزء
والتى تعنى مثلاً
بنائاً على الكود فى المشروع
السؤال هنا تفتكر هو من الاساس هل الجدول يحتوى على اى من Rows طبعاً لا طيب
لذلك تظهر تلك الرسالة بان قيمة -1 غير صالحة هل تعتقد ان بداية العد فى Rows يبداء بـ -1
طيب حتى الان وضحنا سبب المشكلة كيف الان يمكن معالجة الامر
هنا ناتى على الاسطر التالية من الكود فى المشروع
كود :
i = Dst.Tables("Table1").rows.count - 1
a = Dst.Tables("Table1").Rows(i)("SerialNo").ToString + 1
txtSerialNo.Text = a
وفقط نستبدلها بالاسطر التالية
كود :
If Dst.Tables("Table1").rows.count > 0 Then
' فى حالة ان الجدول يحتوى على بيانات سيقوم بتنفيذ هذا الكود
i = Dst.Tables("Table1").rows.count - 1
a = Dst.Tables("Table1").Rows(i)("SerialNo").ToString + 1
Else
' فى حالة ان الجدول فارغ سيقوم بتنفيذ هذا الكود
i = 0
a = i + 1
End If
txtSerialNo.Text = a
طيب ايه اللى انا عملته وليه شرط التحقق
هنا انا بقول فى شرط التحقق اذا كان الجدول بقاعدة البيانات لا تحتوى على اى بيانات اى انها فارغة
قم بجعل القيم لكل من i و a ارقام افتراضية غير قابلة للمعادلة الحسابة اى قيمة ثابتة وهو 0 و +1 على قيمة 0
طيب وفى حالة ان الجدول اصبح يحتوى على بيانات فهنا سيقوم بتنفيذ الكود الذى كان سابقاً يقوم بعرض رسالة خطاء
لكن فى هذه المرة لم يعرضها لان اصبح الجدول تحتوى على بيانات فعلية وبدون اى مشكلة
اتمنى ان يكون الشرح مبسط وموضح به سبب المشكلة وان الامور بسيطة لحلها
تحياتى للجميع
وتمنياتى لكم التوفيق