جمع یک ستون دیتا گریدویو منهای ردیفی که قرمز رنگ یاشد

[farhad85]

با سلام
بنده یک ستون ار دیتا گرید ویو رو با کد زیر جمع میکنم ونتیجه رو داخل یه تکس باکس میریزم

Dim sumcell4 AsDecimal

For i = 0 To DataGridView20.RowCount - 1
sumcell4 += DataGridView20.Item(
"tha1", i).Value

Next
Tcolabi.Text = sumcell4

حالا ممکنه که دبتا گرید ویو شامل چتدتا رکورد باشه و از این چند رکورد 1 رکورد بطور کامل قرمز رنگ باشه. میخوام حاصلجمع همه ی رکورد ها داخل تکس باکسم بیوفته منهای آون رکورد یا تعداد رکوردی که فرمزند. و اگر از رنگ قرمزشون عوض شد دوباره جمع بشن ممنون

121917

[محمد آشتیانی]

سلام
اینجوری بنویس ، ردیف های با رنگ زمینه قرمز مقدارشون جمع نمیشه
اون X که نوشتم ، اندیس ستون مورد نظرته برای جمع شدن


Dim sumcell4 As Decimal
For i = 0 To DataGridView20.RowCount - 1
If DataGridView20.Rows.Item(i).Cells.Item(X).Style.Ba ckColor <> Color.Red Then
sumcell4 += DataGridView20.Item("tha1", i).Value
End If
Next
Tcolabi.Text = sumcell4