专家坐堂-库存计算Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Select Case e.DataCol.Name

Case "药品名称","数量","整领数量","健康室"

Dim drs As List(of DataRow)

Dim Filter As String

Filter = "[_SortKey] >= " & e.DataRow("_SortKey") & " And [药品名称] = \'" & e.DataRow("药品名称") & "\'And [健康室] = \'" & e.DataRow("健康室") & "\'"

drs = e.DataTable.Select(Filter)

For Each dr As DataRow In drs

Filter = "[_SortKey] <= " & dr("_SortKey") & " And [药品名称] = \'" & dr("药品名称") & "\'And [健康室] = \'" & dr("健康室") & "\'"

Dim Val1 As Double = e.DataTable.SQLCompute("Sum(数量)",Filter)

Dim Val2 As Double = e.DataTable.SQLCompute("Sum(整领数量)",Filter)

dr("整盒库存") = Val1 - Val2

If e.DataCol.Name = "药品名称" AndAlso e.OldValue IsNot Nothing AndAlso e.OldValue <> e.NewValue Then

Filter = "[_SortKey] > " & e.DataRow("_SortKey") & " And [药品名称] = \'" & e.OldValue & "\'"

drs = e.DataTable.Select(Filter)

For Each dr As DataRow In drs

Filter = "[_SortKey] <= " & dr("_SortKey") & " And [药品名称] = \'" & dr("药品名称") & "\'And [健康室] = \'" & e.DataRow("健康室") & "\'"

Dim Val1 As Double = e.DataTable.SQLCompute("Sum(数量)",Filter)

Dim Val2 As Double = e.DataTable.SQLCompute("Sum(整领数量)",Filter)

dr("整盒库存") = Val1 - Val2

End If

End Select