• 0
yara2005oo

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

سؤال

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

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

1 إجابات على هذا السؤال .

  • 0

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

ما نوع الخطأ بالضبط؟ هل هو خطأ أثناء التشغيل 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
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .