主题：[求助]有条件求和

If e.DataCol.Name = "第一列" Then

    Dim drs As List(Of DataRow) = e.DataRow.GetChildRows("子")

    Dim v As List(Of String)

    Dim sum As Integer

    For Each dr As DataRow In drs

        Dim v1 = dr("第一列") & "|" & dr("第二列")

        If v.Contains(v1) Then

            Continue For

        Else

            v.Add(v1)

            sum += dr("数量")

        End If

    Next

    e.DataRow("总数量") = sum

End If