主题：请教高效流水帐统计问题

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:蒸发收碱.table

此主题相关图片如下：9月26日.jpg

我使用高效流水帐模式统计每天收碱数量,出现问题是:

1、当月第一个数据不能正常统计（见项目例子）。

2、当月最后一天数据不能正常统计（曾经出现过）。

3、表中日期到24日，在今天（26日）出现月份切换（见图片）。

请教大师是什么原因？如何处理？

第三个问题是：应该在日期列出现26日时才切换到下个月份，现在表中日期列只统计到24日，表相当于转换到下个月份，因为没有输入数据所以显示空白，相当于在今天（9月26日）执行了表中没有的26日，不清楚是什么原因造成的？请教

我这现在就是这种情况，能不能麻烦你指导一下

 

为什么  If drs.Count = 1 Then
            e.DataRow("全月用量_标号统计")=e.DataRow("数量")
        Else
下起作用？

而必须使用drs(0)("全月用量_标号统计") = drs(0)("数量")

第三个问题我怀疑原因可能是：我设计的加载是代码与筛选代码不一致？

加载代码如下；

Dim dn As Date = Date.Today
If dn.Day < 26 Then
    dn = dn.AddMonths(-1)
End If
Dim dn1 As Date = New Date(dn.Year,dn.Month,26)
Dim dn2 As Date = dn1.AddMonths(1).AddDays(-1)
Dim Filter As String
Filter = "日期 >=  '" & dn1 & "'And 日期 <= '" & dn2 & "'"

With DataTables("蒸发收碱")
    .LoadFilter = Filter

筛选代码如下：

Dim dt As Date = e.DataRow("日期")
If dt.Day < 26 Then
    dt = dt.AddMonths(-1)
End If
Dim dt1 As Date = New Date(dt.Year,dt.Month ,26)
Dim dt2 As Date = dt1.AddMonths(1).AddDays(-1)
If e.DataCol.name = "日期" Then
    If e.DataRow.IsNull("日期") = False
        Dim Filter As String
        Filter = "日期 >= #" & dt1 & "# And 日期 <= #" & dt2 & "#"
        Tables("蒸发收碱").Filter = Filter
    End If
End If
    .Load()
End With

如果是这样，在第二天统计前一天数据情况下（最主要是26日统计25日的数据），如何处理比较好？如果不是这个原因？请教大师指点可能还会有什么可能，我再处理，谢谢。

.Load()
End With应该是在前面，复制时放错了，不好意思，谢谢