以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  老师，我的错，在哪？  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=70712)
--  作者：sbfqpidt
--  发布时间：2015/6/27 9:44:00
--  老师，我的错，在哪？
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
--  作者：Bin
--  发布时间：2015/6/27 9:47:00
--  
提示什么错误?

你是SQL数据源?
--  作者：sbfqpidt
--  发布时间：2015/6/27 10:08:00
--  
是SQL数据源！代码有错！条件设得不对。
 Dim filter1 As String = e.DataRow("客户编号") And [单据类型] = 销售出货单 and 单据日期 > #06/01/2015#
 Dim Filter2 As String = e.DataRow("客户编号") And [单据类型] = 销售退货单 and 单据日期 > #06/01/2015#
[此贴子已经被作者于2015/6/27 10:11:36编辑过]
--  作者：Bin
--  发布时间：2015/6/27 10:11:00
--  
Dim filter1 As String = "客户编号 =\'" & e.DataRow("客户编号")  & "\' And [单据类型] = \'销售出货单\' and 单据日期 > \'06/01/2015\'"
 Dim Filter2 As String = "客户编号 =\'" & e.DataRow("客户编号")  & "\' And [单据类型] = \'销售退货单\' and 单据日期 > \'06/01/2015\'"