الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

ارجو تصحيح هذا الكود الخاص ب chechbox

بدأه يارة سمير2 في 20 ديسمبر 2012 · 1 رد · 379 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

ارجو تصحيح لى هذا الكود

For Each row As DataGridViewRow In DataGridView1.Rows

Dim chk As DataGridViewCheckBoxCell = row.Cells(0) 'as DataGridViewCheckBoxCell

If (Convert.ToBoolean(chk.Value)) = True Then

Dim Total As Double = 0

Total += Val(row.Cells(5).Value.ToString)

TextBox1.Text = Total

End If

الكو ده فقط خاص بجمع كل الارقام فى الداتا جريد ووضعها فى تيكست بوكس وهو صحيح ؛ اما الكود السابق وهو به خطأ ومش عارفه اصححه وهو خاص بجمع الارقام بالحقول ال بيتعلم عليها علامة صح

For Each row As DataGridViewRow In DataGridView1.Rows

Dim Total As Double = 0

Total += Val(row.Cells(5).Value.ToString)

TextBox1.Text = Total

دعوة الاخوان والمسلمين والاسلام

اللهم اسالك بالهدى واسالك للمؤمنين الهدى وانى على يقين باتقوى يا رحمن يا رحيم

1472008-014331PM.jpg

#2

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

ما نوع الخطأ بالضبط؟ هل هو خطأ أثناء التشغيل Runtime Error؟ أم خطأ منطقى أى لا يعطى رسالة خطأ ولكن الناتج يكون غير صحيح Logical Error؟

لو كان خطأ منطقياً فربما يجب تغيير الكود بتبديل بعض السطور

Dim Total As Double = 0

For Each row As DataGridViewRow In DataGridView1.Rows

Dim chk As DataGridViewCheckBoxCell = row.Cells(0) 'as DataGridViewCheckBoxCell

If (Convert.ToBoolean(chk.Value)) = True Then

Total += Val(row.Cells(5).Value.ToString)

End If

TextBox1.Text = Total

إن لم يكن كذلك فأرجو توضيح ما الخطأ بالضبط هل هو فى الحسابات؟ أم رسالة خطأ تظهر؟

وإذا كان التعديل السابق قد حل المشكلة، فنحمد الله على توفيقه

تم تعديل هذه المشاركة بواسطة ema2000_t في 20 ديسمبر 2012 في 05:36

أدعو الله أن يجعل أعمالنا خالصة لوجهه الكريم --- وأن ينفعنا بما علمنا

Dr Sayed Tohamy

Programming Instructor

مدرب برمجة

---------------

EmaSoft2000

-------------------

مواضيع مشابهة