以下是修改过的代码和结果，营业额错位
此主题相关图片如下：snap1.jpg
Dim dt1 As DataTable = DataTables("周结")
Dim dt2 As DataTable = DataTables("销售")
dt1.DataRows.Clear
'Dim cs() As String = {"星期天","星期一","星期二","星期三","星期四","星期五","星期六"}
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 '算出今天是星期几
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
加好友 
发短信
Post By：2018/5/12 7:47:00 [显示全部帖子]
