| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 老师，我的错，在哪？ (http://foxtable.net/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\'"
|