帮我看看以下代码。没有提示错误,可是执行后,所有数据都一样
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