- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 考勤汇总 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=169093)
-- 发布时间：2021/6/2 15:11:00
-- 考勤汇总
老师，你好，怎样根据下面的图1考勤统计表 生成图2所示的考勤汇总呢？
图1
图2
[此贴子已经被作者于2021/6/15 11:29:41编辑过]
-- 发布时间：2021/6/2 15:23:00
--
参考：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=137294&skin=0
-- 发布时间：2021/6/2 15:30:00
--
Dim dtb As New DataTableBuilder("考勤报表")
dtb.AddDef("编号", Gettype(String), 16)
dtb.AddDef("打卡时间", Gettype(String), 16)
For Each v As String In DataTables("统计").GetValues("打卡时间")
dtb.AddDef(v.replace(" 00:00:00", ""), Gettype(String))
Next
dtb.Build()
For Each v As String In DataTables("统计").GetValues("编号")
Dim dr1 As DataRow = DataTables("考勤报表").AddNew()
dr1("编号") = v
For Each dr2 As DataRow In DataTables("考勤报表").Select("编号 = \'" & v & "\'")
dr1(dr2("打卡时间")) = dr2("打卡时间")
Next
Next
MainTable = Tables("考勤报表")
蓝老师，以上代码生成的考勤报表不能自动填充，帮我修改一下
-- 发布时间：2021/6/2 15:38:00
--
"考勤报表"表结构和数据是怎么样的？
-- 发布时间：2021/6/2 15:42:00
--
我想做成这种结构
但是我目前的能力只能做成下面这种
-- 发布时间：2021/6/2 15:45:00
--
请上传实例说明
-- 发布时间：2021/6/2 15:46:00
--
你就按照你的截图来设计表就是了啊，可以参照我这个来设计表
此主题相关图片如下：qq截图20210602154516.jpg
还有个方法就是直接竖表，统计转为横表就可以了
[此贴子已经被作者于2021/6/2 15:53:49编辑过]
-- 发布时间：2021/6/2 15:56:00
--
根据考勤表生成统计表，根据统计表生成考勤报表1
[此贴子已经被作者于2021/6/15 11:31:05编辑过]
-- 发布时间：2021/6/2 16:06:00
--
计算规则是什么，是不是考勤表只要有2019-01-02的时间，就算是2019-01-02这一天有考勤了？
-- 发布时间：2021/6/2 16:35:00
--
计算规则是：下午下班-下午上班+上午下班-上午上班，不小于6个小时，算是当天上班了，在考勤报表上用打勾表示，缺勤用打叉表示
谢谢