主题：老师，我的错，在哪？

If e.DataCol.Name = "客户编号" Then 

    Dim filter1 As String = e.DataRow("客户编号") And [单据类型] = 销售出货单 and 单据日期 > #06/01/2015#

    Dim Filter2 As String = e.DataRow("客户编号") And [单据类型] = 销售退货单 and 单据日期 > #06/01/2015#

    e.DataRow("有史以来出货") = DataTables("销售明细").SQLCompute("Sum(销售金额)",Filter1))

    e.DataRow("有史以来退货") = DataTables("销售明细").SQLCompute("Sum(销售金额)",Filter2))

    e.DataRow("有史以来销售净额") = e.DataRow("有史以来出货") - e.DataRow("有史以来退货")

End If