以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]按月跨表统计  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=80183)
--  作者：js4222
--  发布时间：2016/1/18 10:26:00
--  [求助]按月跨表统计
帮我看看以下代码。没有提示错误，可是执行后，所有数据都一样
If e.DataCol.Name = "所属代理" Then
    Dim Filter As String = "[所属代理] = \'" & e.NewValue & "\'"
    Dim y As Integer = Date.Today.Year
    Dim m As Integer = Date.Today.Month
    Dim dt1 As New Date(y, m, 1)
    Dim dt2 As New Date(y, m, Date.DaysInMonth(y, m)) \'获取本月的最后一天
    Filter = "变更时间 >= #" & dt1 & "# And 变更时间 <= #" & dt2 & "#"
    e.DataRow("月入款金额") = DataTables("入账登记表").Compute("Sum(入款金额)", Filter = Filter)
    e.DataRow("月出款金额") = DataTables("出账登记表").Compute("Sum(出款金额)", Filter = Filter)
End If
--  作者：js4222
--  发布时间：2016/1/18 10:27:00
--  
大神，快来
--  作者：大红袍
--  发布时间：2016/1/18 10:28:00
--  

If e.DataCol.Name = "所属代理" Then
    Dim Filter As String = "[所属代理] = \'" & e.NewValue & "\'"
    Dim y As Integer = Date.Today.Year
    Dim m As Integer = Date.Today.Month
    Dim dt1 As New Date(y, m, 1)
    Dim dt2 As New Date(y, m, Date.DaysInMonth(y, m)) \'获取本月的最后一天
    Filter &= " and 变更时间 >= #" & dt1 & "# And 变更时间 <= #" & dt2 & "#"
    e.DataRow("月入款金额") = DataTables("入账登记表").Compute("Sum(入款金额)", Filter)
    e.DataRow("月出款金额") = DataTables("出账登记表").Compute("Sum(出款金额)", Filter)
End

--  作者：js4222
--  发布时间：2016/1/18 10:35:00
--  
以下是引用大红袍在2016/1/18 10:28:00的发言：

If e.DataCol.Name = "所属代理" Then
    Dim Filter As String = "[所属代理] = \'" & e.NewValue & "\'"
    Dim y As Integer = Date.Today.Year
    Dim m As Integer = Date.Today.Month
    Dim dt1 As New Date(y, m, 1)
    Dim dt2 As New Date(y, m, Date.DaysInMonth(y, m)) \'获取本月的最后一天
    Filter &= " and 变更时间 >= #" & dt1 & "# And 变更时间 <= #" & dt2 & "#"
    e.DataRow("月入款金额") = DataTables("入账登记表").Compute("Sum(入款金额)", Filter)
    e.DataRow("月出款金额") = DataTables("出账登记表").Compute("Sum(出款金额)", Filter)
End

我本来也是这样的，可是不行，然后才改成1楼那样子的。什么原因找不出来
--  作者：大红袍
--  发布时间：2016/1/18 10:38:00
--  

代码没问题，你用重置 所属代理 列才能触发代码。

 

报什么错？如果金额为0，就说明没有符合条件的数据。上传具体例子测试。
--  作者：js4222
--  发布时间：2016/1/18 10:39:00
--  
以下是引用大红袍在2016/1/18 10:38:00的发言：

代码没问题，你用重置 所属代理 列才能触发代码。

 

报什么错？如果金额为0，就说明没有符合条件的数据。上传具体例子测试。

谢了，现在可以了。晕了。