[سعود]

PHP كود :

Private Function gsum(ByVal h As String) As Integer
        Dim p As Integer = 0
        For a = 0 To d1.Rows.Count - 1
            Dim itm As String = d1.Rows(a).Cells(0).Value.ToString
            If itm = h Then
                Dim itm2 As String = d1.Rows(a).Cells(1).Value.ToString
                p += itm2
            End If
        Next
        Return p
    End Function
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim lst As New List(Of Integer)
        lst.Clear()
        For a = 0 To d1.Rows.Count - 1
            Dim itm As String = d1.Rows(a).Cells(0).Value.ToString
            If lst.Contains(itm) = False Then
                lst.Add(itm)
            End If
        Next
        d2.Rows.Clear()
        For Each h In lst
            d2.Rows.Add(h.ToString.Trim, gsum(h))
        Next
    End Sub