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

点击浏览该文件:测试累计效率.table

此主题相关图片如下：方法1耗时.jpg


此主题相关图片如下：方法2耗时.jpg

通过查询表形式将每天的新水用量导入表A,现在要统计每月和全年累计用量,我使用了三种方法,
1、用SUM直接统计最初日期到当天的用量，帮助上《非等于比较》章节说这种方法效率较低。

2、采用〈查询与赋值并存〉方法耗时更长，感觉不适合。

3、采用高效流水帐方法，因为原始数据是通过查询表形式导入的，重置列肯定会耗时更长，在实际使用过程中采用按月筛选显示，每月最后一天用量统计显示不正确，请教可能是什么原因？

现采用第一种方法，因原始列有20列，统计耗时较长，请教大师指教采用什么方法更好。

2、采用高效流水帐方法，在实际使用过程中采用按月筛选显示，每月最后一天用量统计显示不正确，请教可能是什么原因？

另外做个按钮，按钮代码：

Dim st As Date = Date.Now
\'DataTables("表A").StopRedraw()
Dim drs As List(of DataRow) = DataTables("表A").Select("","日期")
For i As Integer = 0 To drs.count -1
    Dim dr As DataRow = drs(i)
    Dim y As Integer = dr("日期").year
    Dim m As Integer = dr("日期").Month
    Dim d As Integer = dr("日期").day
    Dim year As String = IIF(m=12 And d>=26,y+1,y)
    Dim month As String = IIF(d>=26,IIF(m=12,1,M+1),m)
    Dim EndDate As Date = new Date(year, month, 26)
    Dim StartDate As Date = EndDate.AddMonths(-1)
    Dim YeatDate As Date = New Date()
    If i = 0 Then \'如果是第一行
        dr("新水1_月用量")  = dr("新水_天用量") \'
        dr("新水1_年用量") = dr("新水_天用量")
    Else
        Dim lastdate As Date = drs(i-1)("日期")
        Dim y1 As Integer = lastdate.year
        Dim m1 As Integer = lastdate.Month
        Dim d1 As Integer = lastdate.day
        y1 = IIF(m1=12 And d1>=26,y1+1,y1)
        If lastDate >= StartDate AndAlso lastDate < EndDate Then \' 如果和上一行是同月
            dr("新水1_月用量")  = dr("新水_天用量") + drs(i-1)("新水1_月用量")
        Else \'如果和上一行不是同月
            dr("新水1_月用量")  = dr("新水_天用量")
        End If
        If y1 = y Then \'如果和上一行同年
            dr("新水1_年用量") = dr("新水_天用量") + drs(i-1)("新水1_年用量")
        Else
            dr("新水1_年用量") = dr("新水_天用量")
        End If
    End If
Next
\'DataTables("表a").ResumeRedraw()
MessageBox.Show("方法1耗时: " & (Date.Now - st).TotalSeconds & "秒")

数据量越大，提速越多，可能会有上百倍。

相关知识来自：

http://www.foxtable.com/help/topics/2382.htm

http://www.foxtable.com/help/topics/2219.htm