老师新年好

下面的统计代码报错找不到客户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("开票_开票金额") = DataTables("出库明细").Compute("Sum(出库_价税合计)", Filter & " And 已开票 = True")
       \' \'e.DataRow("结欠金额") = e.DataRow("销售_金额") - e.DataRow("开票_金额")
End Select

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

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

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

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

Select Case e.DataCol.Name
    Case "已开票"
        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") & "\'")