主题：按条件统计子表

关联表，根据”产品名称“列关联，当”规格型号“不一致时，根据规格型号统计数量，当规格型号为空时，根据产品名称统计数量，用表达式Sum(Child(po).数量)有没办法实现，还是只能用代码啊？

色大师，代码统计没问题了，自动更新这儿怎么修改？

按照当产品名称，按照规格型号统计数量、金额

If e.DataCol.Name = "产品名称" Then
    Dim Filter As String = "[产品名称] = '" & e.NewValue & "'"
    e.DataRow("入库_数量") = DataTables("入库").Compute("Sum(数量)", Filter)
    e.DataRow("入库_金额") = DataTables("入库").Compute("Sum(金额)", Filter)
End If

 

当我第一次在库存表输入一个产品时，金额不会自动统计，如果在修改一下数量，金额才会自动统计。

 

色大师，数量会自动汇总，金额不自动汇总呢，重新输入数量，库存才会汇总金额？

订单截图

 

此主题相关图片如下：1.png

 

库存截图

 

此主题相关图片如下：2.png

 

 

还是加个刷新按钮吧。

入库表：

Dim tns() As String = {"入库"}
Dim dt As DataTable = DataTables("库存")
For Each tn As String In tns
    For Each r As Row In Tables(tn).Rows
        If r.IsNull("产品名称") OrElse r.IsNull("规格型号") = False Then
            Dim fdr As DataRow = dt.Find("产品名称 = '" & r("产品名称") & "' And 规格型号 = '" & r("规格型号") & "'")
            If fdr Is Nothing Then
                Dim nr As DataRow = dt.AddNew
                nr("产品名称") = r("产品名称")
                nr("规格型号") = r("规格型号")
            End If
        End If
    Next
Next

 

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

 

库存表：

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)
    e.DataRow("入库_快递费") = DataTables("入库").Compute("Sum(快递费)", Filter)
End If

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目2.table

有点蓝老师，示例已上传

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

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

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

找到问题了，解决了。