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

蓝老师，示例文件已上传。

你这个金额是表达式，不能触发事件的

方法一

把金额改为数据列，通过代码计算金额，统计的代码不变

方法二

金额里类型不变

入库datacolchanged改改

Select Case e.DataCol.Name

Case "数量","单价"

Dim pr As DataRow

pr = DataTables("库存").Find("产品名称 = '" & e.DataRow("产品名称") & "'And 规格型号 = '" & e.DataRow("规格型号") & "'")

If pr IsNot Nothing Then

DataTables("库存").DataCols("产品名称").RaiseDataColChanged(pr)

End If

End Select

库存datacolchanged改改

If e.DataCol.Name = "产品名称" OrElse e.DataCol.Name = "规格型号" Then

Dim Filter As String = "1=1"

If e.DataRow.IsNull("产品名称") = False Then filter &= " and 产品名称 = '" & e.DataRow("产品名称") & "'"

If e.DataRow.IsNull("规格型号") = False Then filter &= " and 规格型号 = '" & e.DataRow("规格型号") & "'"

e.DataRow("入库_数量") = DataTables("入库").Compute("Sum(数量)", Filter)

e.DataRow("入库_快递费") = DataTables("入库").Compute("Sum(快递费)", Filter)

Dim sum As Double = 0

For Each dr As DataRow In DataTables("入库").Select(Filter)

sum += dr("数量") * dr("单价")

e.DataRow("入库_金额") = sum

End If

谢谢有点蓝老师，表达式不能统计，修改的时候搞混淆了，感谢感谢。

有点蓝老师，我用相同的方法库存统计出库，不执行怎么回事呢？

If e.DataCol.Name = "产品名称" OrElse e.DataCol.Name = "规格型号" Then

Dim Filter As String = "1=1"

If e.DataRow.IsNull("产品名称") = False Then filter &= " and 产品名称 = '" & e.DataRow("产品名称") & "'"

If e.DataRow.IsNull("规格型号") = False Then filter &= " and 规格型号 = '" & e.DataRow("规格型号") & "'"

e.DataRow("出库_数量") = DataTables("出库").Compute("Sum(数量)", Filter)

Dim sum As Double = 0

For Each dr As DataRow In DataTables("出库").Select(Filter)

sum += dr("数量") * dr("单价")

e.DataRow("出库_金额") = sum

End If

加入msgbox，看是否进入执行了代码。

弹出生成的条件filter看看。

找到问题了，解决了。

图片点击可在新窗口打开查看

主题：按条件统计子表