[حريف برمجة]

العفو ،،

كود :

Dim cash = DataGridView1.Rows.Cast(Of DataGridViewRow).
                Where(Function(row) CStr(row.Cells(1).Value) = "نقدا").
                Select(Function(row) CDbl(Val(row.Cells(0).Value))).Sum()

       MsgBox(cash)