主题：[求助]统计

老师新年好

 

下面的统计代码报错找不到客户ID

 

 

Select Case e.DataCol.Name
 Case  "客户ID"
        Dim Filter As String  = "客户ID =  " & e.DataRow("客户ID")
        e.DataRow("销售_数量") = DataTables("出库明细").Compute("Sum(出库_数量)", Filter)
        e.DataRow("销售_金额") = DataTables("出库明细").Compute("Sum(出库_价税合计)", Filter)
        e.DataRow("开piao_开piao金额") = DataTables("出库明细").Compute("Sum(出库_价税合计)", Filter & " And 已开piao = True")
       ' 'e.DataRow("结欠金额") = e.DataRow("销售_金额") - e.DataRow("开piao_金额")
End Select

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

Select Case e.DataCol.Name
     Case  "客户ID"
        Dim Filter As String  = "客户ID = '" & e.DataRow("客户ID") & "'"
        e.DataRow("销售_数量") = DataTables("出库明细").Compute("Sum(出库_数量)", Filter)
        e.DataRow("销售_金额") = DataTables("出库明细").Compute("Sum(出库_价税合计)", Filter)
        e.DataRow("开piao_开piao金额") = DataTables("出库明细").Compute("Sum(出库_价税合计)", Filter & " And 已开piao = True")
        'e.DataRow("结欠金额") = e.DataRow("销售_金额") - e.DataRow("开piao_金额")
End Select

谢谢老师，上面的问题解决了。下面有出问题了

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

这个报错对话框是什么意思

 贴出对应出错的代码，调试技巧看一下 http://www.foxtable.com/help/topics/1485.htm

 

Select Case e.DataCol.Name
    Case "已开piao"
        If e.OldValue <> e.NewValue Then
            Dim pr As DataRow
            pr = DataTables("客户往来动态").Find("[客户ID] = " & e.DataRow("客户ID") )
            If pr IsNot Nothing Then
                DataTables("客户往来动态").DataCols("客户ID").RaiseDataColChanged(pr)
            End If
        End If
End Select

 

老师，上面这个代码有问题吗？

 呃，你要变通

 

pr = DataTables("客户往来动态").Find("[客户ID] = '" & e.DataRow("客户ID") & "'")

谢谢老师好了