主题：[求助]按月跨表统计

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

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

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