主题：[求助]如何通过代码判断匹配对应数据？

参考代码

Select Case e.DataCol.Name
    Case "品名","供应商","日均销量"
        Dim filter As String = "品名='" & e.DataRow("品名") & "' And 供应商='" & e.DataRow("供应商") & "'"
        Dim sum As Double = e.DataTable.Compute("Sum(日均销量)",filter)
        If sum > 0 Then
            For Each dr1 As DataRow In e.DataTable.Select(filter)
                dr1("标准库存天数") = dr1("供应商起订量") / sum
            Next
        End If
End Select