Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于考勤数据指定格式生成表格（项目已经改成内部表了！））


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

主题：关于考勤数据指定格式生成表格（项目已经改成内部表了！））
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  31楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47448 积分：251060 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2013/8/2 11:51:00 [只看该作者]

Dim dt1 As Date = #6/10/2011#
Dim dt2 As Date = #6/12/2011#
Dim dtb As New DataTableBuilder("统计")
dtb.AddDef("name", Gettype(String), 32)
dtb.AddDef("cardno", Gettype(String), 32)
dtb.AddDef("date", Gettype(Date))
dtb.AddDef("t1", Gettype(String))
dtb.AddDef("t2", Gettype(String))
dtb.Build
For Each dr1 As DataRow In DataTables("ZlEmployee").DataRows
    For i As Integer = 0 To (dt2 - dt1).TotalDays
        Dim dr2 As DataRow
        dr2 = DataTables("统计").Addnew
        dr2("name") = dr1("Name")
        dr2("CardNo") = dr1("CardNo")
        dr2("date") = dt1.AddDays(i)
        Dim drs As List(of DataRow) =  DataTables("Kq_Source").Select("CardNo = '" & dr2("CardNo") & "'And FDateTime >= #" & dr2("Date") & "# And FDateTime < #" & dr2("Date").AddDays(1) & "# ")
        For n As Integer = 0 To drs.count -1
            If n = 0 Then
                dr2("t1") = Format(drs(n)("FDateTime"),"HH:mm")
            ElseIf n =1 Then
                dr2("t2") = Format(drs(n)("FDateTime"),"HH:mm")
                Exit For
            End If
        Next
    Next
Next

 回到顶部
帅哥哟，离线，有人找我吗？
xietan417
 小大  32楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：721 积分：6397 威望：0 精华：0 注册：2011/6/26 11:45:00 		  发帖心情 Post By：2013/8/2 11:55:00 [只看该作者]

疑问？

For n As Integer = 0 To drs.count -1
            If n = 0 Then
                dr2("t1") = Format(drs(n)("FDateTime"),"HH:mm")
            ElseIf n =1 Then
                dr2("t2") = Format(drs(n)("FDateTime"),"HH:mm")
                Exit For
            End If
        Next
    Next
Next

 

 

n既然是drs的行数，为什么情况会等0或者1？
 回到顶部
帅哥哟，离线，有人找我吗？
西瓜住持
 小大  33楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：358 积分：3193 威望：0 精华：2 注册：2012/1/17 10:55:00 		  发帖心情 Post By：2013/8/2 20:05:00 [只看该作者]

哈 这个考勤机我搞过。

 回到顶部
帅哥哟，离线，有人找我吗？
西瓜住持
 小大  34楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：358 积分：3193 威望：0 精华：2 注册：2012/1/17 10:55:00 		  发帖心情 Post By：2013/8/2 20:06:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：de2.jpg
图片点击可在新窗口打开查看
破图

 回到顶部
帅哥哟，离线，有人找我吗？
xietan417
 小大  35楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：721 积分：6397 威望：0 精华：0 注册：2011/6/26 11:45:00 		  发帖心情 Post By：2013/8/2 20:45:00 [只看该作者]

你的看起来不错啊！怎么做的啊？

 回到顶部
帅哥哟，离线，有人找我吗？
西瓜住持
 小大  36楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：358 积分：3193 威望：0 精华：2 注册：2012/1/17 10:55:00 		  发帖心情 Post By：2013/8/3 9:34:00 [只看该作者]

读取考勤机后台数据，用临时表生成就可以了

 回到顶部
帅哥哟，离线，有人找我吗？
xietan417
 小大  37楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：721 积分：6397 威望：0 精华：0 注册：2011/6/26 11:45:00 		  发帖心情 Post By：2013/8/3 11:24:00 [只看该作者]

求参考代码！
 回到顶部
帅哥哟，离线，有人找我吗？
xuhw
 小大  38楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：51 积分：427 威望：0 精华：0 注册：2021/9/7 13:25:00 		  发帖心情 Post By：2021/12/10 17:17:00 [只看该作者]

能发源码吗？我需要一个

 回到顶部
总数 38 上一页 1 2 3 4
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 4 次数据查询