以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  考勤汇总  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=169093)

--  作者:jery
--  发布时间: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
--  作者:jery
--  发布时间: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
--  
"考勤报表"表结构和数据是怎么样的?
--  作者:jery
--  发布时间:2021/6/2 15:42:00
--  
我想做成这种结构
图片点击可在新窗口打开查看


但是我目前的能力只能做成下面这种
图片点击可在新窗口打开查看

--  作者:有点蓝
--  发布时间:2021/6/2 15:45:00
--  
请上传实例说明
--  作者:cd_tdh
--  发布时间:2021/6/2 15:46:00
--  

你就按照你的截图来设计表就是了啊,可以参照我这个来设计表

 


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20210602154516.jpg
图片点击可在新窗口打开查看

 

还有个方法就是直接竖表,统计转为横表就可以了

[此贴子已经被作者于2021/6/2 15:53:49编辑过]

--  作者:jery
--  发布时间: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这一天有考勤了?
--  作者:jery
--  发布时间:2021/6/2 16:35:00
--  
计算规则是:下午下班-下午上班+上午下班-上午上班,不小于6个小时,算是当天上班了,在考勤报表上用打勾表示,缺勤用打叉表示
谢谢