Foxtable(狐表)用户栏目专家坐堂 → [求助]如何把统计结果放入表中


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

主题:[求助]如何把统计结果放入表中

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


加好友 发短信
等级:超级版主 帖子:106209 积分:540168 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/11/16 22:08:00 [显示全部帖子]

Dim d_h As  Date
d_h =DataTables("每日工作量").Compute("Max(操作日期)")   '取得最后操作日期
Dim dt1 As Date = d_h.AddDays(-1) '获取最后操作日期的前一天
Dim Filter As String
Filter = "操作日期 = #" & dt1 & "#"
Dim g As New GroupTableBuilder("上一日产量", DataTables("每日工作量"))
g.Groups.AddDef("操作台")
g.Totals.AddDef("计件数量", "日产量")
g.Filter = Filter
Dim dt As DataTable = g.Build(True)
For Each dr As DataRow In dt.DataRows
    Dim nr As DataRow = DataTables("操作台").Find("操作台号 = '" & dr("操作台") & "'")
    If nr IsNot Nothing Then
        nr("日产量") = dr("日产量")
    End If
Next


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


加好友 发短信
等级:超级版主 帖子:106209 积分:540168 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/11/16 22:53:00 [显示全部帖子]

是的,一定带True参数

 回到顶部