Foxtable(狐表)用户栏目专家坐堂 → [求助]


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

主题:[求助]

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


加好友 发短信
等级:婴狐 帖子:5 积分:120 威望:0 精华:0 注册:2012/10/5 19:22:00
  发帖心情 Post By:2012/10/23 10:44:00 [只看该作者]

可我真的认真看过《统计数据》了,上面没有如何统计月工作天数呀


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


加好友 发短信
等级:狐神 帖子:6708 积分:34304 威望:0 精华:11 注册:2012/8/18 23:10:00
  发帖心情 Post By:2012/10/23 11:39:00 [只看该作者]

 第一个问题,统计表是临时表,如果你需要保存成数据表,就先把统计表 导出 ,然后再倒入到狐表。

 第二个问题统计如下。

Dim ntb As New DataTableBuilder("统计表")
ntb.AddDef("姓名", Gettype(String))
ntb.AddDef("月工作天数", Gettype(Integer))
ntb.AddDef("日平均工资", Gettype(Double))
ntb.Build()

Dim names As List(Of String) = DataTables("工作记录表").GetUniqueValues("姓名 is not null", "姓名")
For Each name As String In names
    Dim filter As String = "姓名 = '" & name & "' And 工作日期 >= #2012-10-01# And 工作日期 <= #2012-10-31#"
    Dim days As List(Of String) = DataTables("工作记录表").GetUniqueValues(filter, "工作日期")
    Dim count As Double = DataTables("工作记录表").Compute("Sum(工作总价)", filter)
    Dim r As Row = Tables("统计表").AddNew()
    r("姓名") = name
    r("月工作天数") = days.Count
    r("日平均工资") = count / days.Count
Next
MainTable = Tables("统计表")

 回到顶部
总数 12 上一页 1 2