主题：类似于sumproduct函数，求助

老师，您好，我一订单里假设有10个产品编码，同时对应数量1-数量10，其中单价要跨表查询，要求每个订单成本该如何编写？

我编写的如下代码，不知道错在哪里，只会保存最后一次满足条件的值，不会累加？

Dim i  As Integer
For i = 1 To 10
    Dim dr As DataRow = e.DataRow
    Dim sk As String="SKU"&i
    Dim sn As String="数量"&i
    Dim cb  As Integer
    Dim sum  As Integer
   
    If  dr(sk) Is Nothing Then
        Exit For
    Else
        Select Case e.DataCol.Name
            Case sk
                dr = DataTables("单价表").Find("[货品编码] = '" & e.NewValue & "'")
                If dr  IsNot Nothing Then
                    cb=dr("单价")*e.DataRow(sn)
                    sum=sum+cb
                    e.DataRow("订单成本")=sum
                End If
               
               
        End Select
    End If
   
Next

万分感谢！！！！已经修改测试了没有问题了