以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何获取各周最后一天的数据？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=94577)
--  作者：wyz20130512
--  发布时间：2016/12/27 12:48:00
--  
你所说的各周最后一天是周六还是周日？

With DataTables("表A")
    Dim drs As New List(Of DataRow)
    For Each dr As DataRow In .DataRows
        If dr("日期").DayOfWeek = 6 Then
            drs.Add(dr)
        End If
    Next
    \'For Each dr2 As DataRow In drs
        \'dr2("第六列") = "Foxtable"
    \'Next
End With

若是指周日，将6换为0即可。
[此贴子已经被作者于2016/12/27 13:22:35编辑过]
--  作者：有点色
--  发布时间：2016/12/27 17:58:00
--  

 

Dim b As New sqlGroupTableBuilder("统计表1","表A")
b.Groups.AddDef("周龄")
b.Totals.AddExp("累计","iif(天数 mod 7 = 0,数量,0)")
Tables("窗口1_table1").DataSource = b.BuildDataSource
--  作者：wyz20130512
--  发布时间：2016/12/27 21:10:00
--  

图片点击可在新窗口打开查看此主题相关图片如下：行集合4.png
图片点击可在新窗口打开查看
--  作者：fjlclxj
--  发布时间：2016/12/27 22:01:00
--  
方式1
Dim cmd As new S QLCommand
cmd.C ommandText="s elect 天数,周龄,数量 from {表A} where [天数] mod 7 = 0"
Tables("窗口1_Table1").DataSource =cmd.ExecuteReader

-----------------------------------------------------------------------------

方式2
Dim cmd As new S QLCommand
cmd.C ommandText="s elect 天数,周龄,数量 from {表A} where [天数] in (s elect max(天数) from {表A} group by 周龄)"
Tables("窗口1_Table1").DataSource =cmd.ExecuteReader
[此贴子已经被作者于2016/12/27 22:16:28编辑过]