منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
ايرور اريد حله - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : ايرور اريد حله (/showthread.php?tid=45379)

ايرور اريد حله - Abdallah61 - 10-02-23

السلام عليكم
عندي برنامج مبيعات في قسم مرتجع الشراء
انا استخدم قاعدة بيانات SQL
هناك DataGridView تعرض البيانات من قاعدة البيانات
عند ارجاع المستخدم لمنتج يظهر في قاعدة الشراء ان المنتج اخذ رقم لارجاعه
كما موضح بالصورة 
وفي اخر الخانات يجب عد المنتجات التي اخذت ارقام للمرتجع فقط
بالكود التالي:
كود :
 For i As Integer = 0 To Rebuy.DataGridView1.Rows.Count - 1
               total = total + Val(Rebuy.DataGridView1(15, Rebuy.DataGridView1.Rows(i).Index).Value)
               Rebuy.ReBuyTotalG.Text = total
           Next
ولا ينجح الكود ويكتب رسالة خطأ كما بالصورة الثانية

RE: ايرور اريد حله - Taha Okla - 10-02-23

وعليكم السلام ورحمة الله وبركاته

بصراحة لم يتضح لدي مكان الخطأ بالتحديد
ولكن من تجربتي بجداول البيانات واستعلاماته
نصيحة لا تترك أي خلية فارغة
إن لم يكن هناك قيمة للتخزين ضمن الحقل فأترك مكانها شيء يناسبها ولا يسبب لك مشاكل مستقبلاً
مثلاً : ضمن الحقل الرقمي ضع صفر(0)،   وضمن الحقل النصي ضع مسافة أو داش (-)
حتى إذا ما اضطررت للاستعلام عن بياناتك بأي طريقة كانت، لن تدخل بأخطاء بسبب اللاشيء (Null)  التي أحياناً تسبب أخطاء ضمن الاستعلام والمعالجة.
فما تعالجه في برنامجك من البداية من قبل أن يحدث سيوفر عليك الكثير من الوقت للتصحيح في اللاحق.

RE: ايرور اريد حله - estefsar - 14-02-23

(10-02-23, 05:06 AM)Abdallah61 كتب : السلام عليكم
عندي برنامج مبيعات في قسم مرتجع الشراء
انا استخدم قاعدة بيانات SQL
هناك DataGridView تعرض البيانات من قاعدة البيانات
عند ارجاع المستخدم لمنتج يظهر في قاعدة الشراء ان المنتج اخذ رقم لارجاعه
كما موضح بالصورة 
وفي اخر الخانات يجب عد المنتجات التي اخذت ارقام للمرتجع فقط
بالكود التالي:
كود :
 For i As Integer = 0 To Rebuy.DataGridView1.Rows.Count - 1
               total = total + Val(Rebuy.DataGridView1(15, Rebuy.DataGridView1.Rows(i).Index).Value)
               Rebuy.ReBuyTotalG.Text = total
           Next
ولا ينجح الكود ويكتب رسالة خطأ كما بالصورة الثانية

هل توصلت للحل؟؟؟