[سعود]

PHP كود :

       For r As Integer = 1 To 100
            d.Rows.Add(r.ToString)
        Next
        Dim i As Integer = 0
        For r As Integer = 0 To d.Rows.Count - 1
            i += Val(d.Rows(r).Cells(0).Value)
        Next
        d.Rows.Add("Total: " & i.ToString)