Foxtable(狐表)用户栏目专家坐堂 → 关于本周统计代码


  共有2030人关注过本帖树形打印复制链接

主题:关于本周统计代码

美女呀,离线,留言给我吧!
动检
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:113 积分:1107 威望:0 精华:0 注册:2016/12/14 14:30:00
关于本周统计代码  发帖心情 Post By:2018/11/13 16:51:00 [只看该作者]

参照过下面帮助里的代码来统计本周的数据,但是不知道怎么运用到自己的代码里面去

Dim y As Integer = Date.Today.Year
Dim 
w As Integer = Date.Today.DayOfWeek '算出今天是星期几
Dim 
dt1 As Date = Date.Today.AddDays(-w'获取本周的第一天
Dim 
dt2 As Date = Date.Today.AddDays(6 - w'获取本周的最后一天
Dim 
Filter As String
Filter
 = "日期 >= #" & dt1 & "# And 日期 <= #" & dt2 & "#"
Tables(
"订单").Filter = Filter




以下是自己写的一段代码 请问下需要怎么改正?(通过检测日期来选出近期一周的数据)

b.Groups.AddDef("检测日期",DateGroupEnum.AddDays(-w)—AddDays(6 - w)  ,"本周")



 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/11/13 17:50:00 [只看该作者]

直接写,如

 

b.filter = "日期 >= #" & date.today.adddays(-6) & "#"

 

如果是查本周,可以这样写

 

b.Filter = "日期 >= #" & dt1 & "# And 日期 <= #" & dt2 & "#"


 回到顶部
美女呀,离线,留言给我吧!
动检
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:113 积分:1107 威望:0 精华:0 注册:2016/12/14 14:30:00
  发帖心情 Post By:2018/11/14 10:15:00 [只看该作者]

后来我这样写进去了 但是提示错误 错误代码是Object reference not set to an instance of an object.

以下是我的全部代码

Dim b As New SQLGroupTableBuilder("统计表1","检测报告")

Dim d1 As Date = Date.Today

Dim year As Integer = d1.Year

Dim month As Integer = d1.Month

 

b.filter="检测日期>=#"&date.today.adddays(-6)&"#"

b.Totals.AddExp("样品数量","实验室编号","",AggregateEnum.Count) '统计人数

Dim nms() As String = {"检测项目_蓝耳PRRS_判定","检测项目_猪瘟CSFV_判定","检测项目_猪伪狂犬gB_判定","检测项目_猪伪狂犬gE_判定","检测项目_猪圆环病毒_判定"}

For Each nm As String In nms '利用表达式统计及格人数和优秀人数

    b.Totals.Addexp(nm & "_阳性""iif(" &  nm & " = 'P', 1, 0)")

    b.Totals.Addexp(nm & "_可疑""iif(" &  nm & " = 'S', 1, 0)")

Next

b.VerticalTotal = True

b.Build()

For Each nm As String In nms '对生成的统计表增加表达式列,计算及格率和优秀率

    DataTables("统计表1").DataCols.Add(nm & "_阳性率",Gettype(Double), nm & "_阳性/样品数量" )

    Tables("统计表1").Cols(nm & "_阳性率").Move(Tables("统计表1").Cols(nm & "_阳性").Index + 1)

    DataTables("统计表1").DataCols.Add(nm & "_可疑率",Gettype(Double), nm & "_可疑/样品数量" )

    Tables("统计表1").Cols(nm & "_可疑率").Move(Tables("统计表1").Cols(nm & "_可疑").Index + 1)

    DataTables("统计表1").DataCols(nm & "_阳性率").SetFormat("0.00%")

    DataTables("统计表1").DataCols(nm & "_可疑率").SetFormat("0.00%")

   

Next

MainTable = Tables("统计表1")

 

MainTable = Tables("统计表1")

 

Forms("返回").OpenTo("统计表1")

 

MainTable.Focus()


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/11/14 10:17:00 [只看该作者]

具体实例发上来测试。

 回到顶部