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


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

主题:[求助]

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


加好友 发短信
等级:狐神 帖子:6708 积分:34304 威望:0 精华:11 注册:2012/8/18 23:10:00
  发帖心情 Post By:2012/10/8 15:18:00 [显示全部帖子]

 需要几张表,工序表,员工表,明细表。

 在明细表里录入某个员工,某一天,某个工序完成的数量。

 然后就可以写代码统计出各个员工某天或者某月的工资。一劳永逸了。

 你先设计好表,填上一些数据……发上来。

 回到顶部
帅哥哟,离线,有人找我吗?
lin_hailun
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | 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("统计表")

 回到顶部