主题：[求助]关于库存统计问题

Select Case e.DataCol.Name
    Case "疫苗ID","入库(领用)","出库(使用)","库号"
        Dim drs As List(of DataRow)
        Dim Filter As String

         drs = e.DataTable.Select(Filter)
        For Each dr As DataRow In drs

Filter = "[_SortKey] <= " & dr("_SortKey") & " And [疫苗ID] = '" & dr("疫苗ID") & "' and 库号 = " & dr("库号")

            Dim Val1 As Double = e.DataTable.Compute("Sum(入库(领用))",Filter)
            Dim Val2 As Double = e.DataTable.Compute("Sum(出库(使用))",Filter)
            dr("库存") = Val1 - Val2
        Next
end Select