主题：按周统计

这个不能改

 

Dim cs() As String = {"星期天","星期一","星期二","星期三","星期四","星期五","星期六"}

 

刚回家。甜老师，我需要的是星期一到星期天，不是星期天到星期六，真的没办法实现吗？

Dim dt1 As DataTable = DataTables("周结")
Dim dt2 As DataTable = DataTables("销售")
dt1.DataRows.Clear
Dim cs() As String = {"星期天","星期一","星期二","星期三","星期四","星期五","星期六"}
For Each dr As DataRow In dt2.Select("日期 is not null", "日期")
    Dim d As Date = dr("日期")
    Dim y As Integer = d.Year
    Dim w As Integer = d.DayOfWeek '算出今天是星期几
    If w = 0 Then w = 7
    Dim d1 As Date = d.AddDays(-w+1) '获取本周的第一天
    Dim d2 As Date = d.AddDays(6 - w + 1) '获取本周的最后一天
   
    Dim fdr As DataRow = dt1.find("周一 = #" & d1 & "# and 周二 = #" & d2 & "#")
    If fdr Is Nothing Then
        fdr = dt1.addnew
        fdr("周一") = d1
        fdr("周二") = d2
    End If
    Dim i As Integer = d.DayOfWeek
    fdr(cs(i)) += dr("营业额")
    fdr("合计") += dr("营业额")
Next

谢甜老师