[AHMED213]

Private Sub SumColumnValuesWithCondition()
    Dim columnNameToCheck As String = "اسم العمود" ' اسم العمود الذي ترغب في فحصه
    Dim valueToCheckFor As Boolean = True ' القيمة التي ترغب في فحصها في العمود الأخر
    Dim columnToSum As String = "العمود الذي ترغب في جمع قيمه" ' اسم العمود الذي ترغب في جمع قيمه

    Dim totalSum As Integer = 0

    For Each row As DataGridViewRow In DataGridView1.Rows
        If row.Cells(columnNameToCheck).Value IsNot Nothing AndAlso row.Cells(columnNameToCheck).Value.ToString() = valueToCheckFor.ToString() Then
            Dim cellValue As Integer = 0
            If Integer.TryParse(row.Cells(columnToSum).Value.ToString(), cellValue) Then
                totalSum += cellValue
            End If
        End If
    Next

    MessageBox.Show("مجموع القيم: " & totalSum.ToString())
End Sub