[elgokr]

انتظر اذن أخي الكريم .. الدواء الشافي من استاذنا   elgokr
تحياتي

هذه شهادة اعتز بها اخى وحبيبى عبدالعزيز البسكري

ولا اعلم ماذا اقول بعد كلامك هذا

بخصوص مشكلة الاخ محمد خيري

فتلك الرسالة تظهر بسبب عدم وجود اى بيانات بقاعدة بيانات

حيث انه يستخدم السطر التالى

كود :

a = Dst.Tables("Table1").Rows(i)("SerialNo").ToString + 1

لو وضعنا انفسنا مكان البرنامج لقراءة الكود

عند جزء

كود :

Rows(i)

والتى تعنى مثلاً

كود :

Rows(-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

طيب وفى حالة ان الجدول اصبح يحتوى على بيانات فهنا سيقوم بتنفيذ الكود الذى كان سابقاً يقوم بعرض رسالة خطاء

لكن فى هذه المرة لم يعرضها لان اصبح الجدول تحتوى على بيانات فعلية وبدون اى مشكلة

اتمنى ان يكون الشرح مبسط وموضح به سبب المشكلة وان الامور بسيطة لحلها

تحياتى للجميع

وتمنياتى لكم التوفيق