按周统计 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 按周统计

共有3145人关注过本帖树形打印复制链接主题：按周统计

实话实说

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2649 积分：19396 威望：0 精华：1 注册：2008/9/12 9:19:00

按周统计

Post By：2018/5/12 7:47:00 [只看该作者]

如何从表1(数据表)得到表2(统计表)

此主题相关图片如下：snap1.jpg

此主题相关图片如下：snap2.jpg

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：111414 积分：567140 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2018/5/12 8:51:00 [只看该作者]

1、表2增加2个辅助列：周一、周日，类型日期型。

2、获取表一的最小日期和最大日期，先在表2生成此区间所有周的行

3、循环所有表一的行，通过日期查询在表2哪个周，再把营业额填入对应星期几的单元格中

实话实说

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2649 积分：19396 威望：0 精华：1 注册：2008/9/12 9:19:00

Post By：2018/5/13 6:57:00 [只看该作者]

做了个实例，望能在窗口1的按钮中贴出代码。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:周结.foxdb

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/5/13 10:16:00 [只看该作者]

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 '算出今天是星期几
    Dim d1 As Date = d.AddDays(-w) '获取本周的第一天
    Dim d2 As Date = d.AddDays(6 - w) '获取本周的最后一天
    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

实话实说

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2649 积分：19396 威望：0 精华：1 注册：2008/9/12 9:19:00

Post By：2018/5/13 11:31:00 [只看该作者]

4楼代码是将星期天作为一星期的第一天,(DayOfWeek)我需要星期一作为已星期的第一天

有点甜

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/5/13 11:54:00 [只看该作者]

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) '获取本周的最后一天

实话实说

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2649 积分：19396 威望：0 精华：1 注册：2008/9/12 9:19:00

Post By：2018/5/13 12:08:00 [只看该作者]

周一周日列没问题,但营业额对不上，下面代码问题吗？

Dim i As Integer = d.DayOfWeek
fdr(cs(i)) += dr("营业额")
fdr("合计") += dr("营业额")
Next

y2287958

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：4773 积分：34673 威望：0 精华：0 注册：2008/8/31 22:44:00

Post By：2018/5/13 12:40:00 [只看该作者]

试试以下这个代码

Dim 日期1 As String = "format(DateAdd('d', -iif(DatePart('w', 日期)=1,8,DatePart('w', 日期))+2, 日期),'yymmdd')"
Dim 日期2 As String = "format(DateAdd('d', -iif(DatePart('w', 日期)=1,8,DatePart('w', 日期))+8, 日期),'yymmdd')"
Dim bm As String = "窗口1_Table2"
Dim b As New SQLCrossTableBuilder(bm,"销售")
b.HGroups.AddExp("营业额_日期", "trim(str(" & 日期1 & "))+'-'+trim(str(" & 日期2 & "))")
b.VGroups.AddExp("星期","DatePart('w', 日期)")
b.Totals.AddDef("营业额")
b.HorizontalTotal = True
Tables(bm).DataSource = b.Build(True)
Tables(bm).Cols("营业额_1").Move(Tables(bm).Cols.Count-2)
For Each c As Col In Tables(bm).Cols
    If len(c.Caption) = 5
        c.Caption = left(c.Caption,4) & "星期" & CLNum(CInt(right(c.Caption,1))-1)
    End If
    If c.Name = "营业额_1"
        c.Caption = "营业额_星期日"
    ElseIf c.Name = "合计"
        c.Caption = "营业额_合计"
    End If
Next
DataTables(bm).BuildHeader
Tables(bm).AutoSizeCols

'注明:窗口控件table2不要绑定任何表

[此贴子已经被作者于2018/5/13 13:29:43编辑过]

实话实说

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2649 积分：19396 威望：0 精华：1 注册：2008/9/12 9:19:00

Post By：2018/5/13 13:34:00 [只看该作者]

谢谢8楼代码，我还是期待回复7楼问题

实话实说

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2649 积分：19396 威望：0 精华：1 注册：2008/9/12 9:19:00

Post By：2018/5/13 14:06:00 [只看该作者]

以下是修改过的代码和结果，营业额错位

此主题相关图片如下：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("营业额")

下一主题 >> << 上一主题

总数 14 1 2 下一页

主题：按周统计