专家坐堂-求助：如何根据作息时间表来判断登记事件及事件说明？Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求助：如何根据作息时间表来判断登记事件及事件说明？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=51802)

--  作者：李孝春
--  发布时间：2014/6/3 20:04:00
--  求助：如何根据作息时间表来判断登记事件及事件说明？
求助：如何根据作息时间表来判断登记事件及事件说明？

当登记时间发生变动时候，开始判断作息时间表中的对应时间段，来定义登记事件，并完成事件说明。

当王五第一次登记时候为签到，再次登记为签退。
下载信息  [文件大小：   下载次数： ]
点击浏览该文件:考勤管理求助.table

此主题相关图片如下：00112233.jpg

效果如：
王五加班签到
王五加班签退
李四加班签到
张三加班签到
李四加班签退
张三加班签退

--  作者：有点甜
--  发布时间：2014/6/3 20:28:00
--

datacolchanged事件，代码

If e.DataCol.Name = "姓名" Then
    e.DataRow("登记时间") =Date.now()
Else If e.DataCol.Name = "登记时间" Then
    If e.NewValue <> Nothing Then
        Dim d As Date = new Date(1, 1, 1, e.NewValue.hour, e.newValue.minute, 0)
        Dim fdr As DataRow = DataTables("作息时间表").Find("开始时间 < #" & d & "#", "开始时间 desc")
        e.DataRow("登记事件") = fdr("作息类型") & "登记"
        Dim dr As DataRow = e.DataTable.Find("姓名 = \'" & e.DataRow("姓名") & "\' and _Identify < " & e.DataRow("_Identify"), "_Identify desc")
        If dr Is Nothing Then
            e.DataRow("事件说明") = fdr("作息类型") & "签到"
        Else
            If dr("事件说明").Contains("签到") Then
                e.DataRow("事件说明") = fdr("作息类型") & "签退"
            Else
                e.DataRow("事件说明") = fdr("作息类型") & "签到"
            End If
        End If
    Else
        e.DataRow("登记事件") = Nothing
        e.DataRow("事件说明") = Nothing
    End If
End If

--  作者：李孝春
--  发布时间：2014/6/3 20:51:00
--  回复：（有点甜）datacolchanged事件，代码 ...
感谢老师的指导我学习学习

--  作者：李孝春
--  发布时间：2014/6/4 15:06:00
--  如何让外来人员不用根据作息时间表来进行判断，直接让登记状态为来访签到、来访签退。

有点甜老师！

利用这个代码进行身份证号码来判断该身份证是否属于与单位职工还是外来人员？
Dim sd As WinForm.TextBox = Forms("考勤与来访登记").Controls("TextBox4")
Dim sfzh As String = sd.Text
Dim dr As DataRow
Dim po As Integer
dr = DataTables("员工资料").Find("身份证号码 = \'" & sfzh & "\'")
po = Tables("员工资料").FindRow(dr)
If po >= 0 Then \'如果找到
r("人员类型") = "单位职工"
r("登记类型") = "员工考勤登记"
r("事项详情") = "员工考勤登记"
Else
r("人员类型") = "外来人员"
r("登记类型") = "来人来访登记"
r("事项详情") = "来人来访登记"
End If

下面这个代码如何完善呢？让外来人员不用根据作息时间表来进行判断，直接让登记状态为来访签到、来访签退。
If e.DataCol.Name = "姓名" Then
e.DataRow("登记时间") =Date.now()
Else If e.DataCol.Name = "登记时间" Then
If e.NewValue <> Nothing Then
Dim d As Date = new Date(1, 1, 1, e.NewValue.hour, e.newValue.minute, 0)
Dim fdr As DataRow = DataTables("作息时间表").Find("开始时间 < #" & d & "#", "开始时间 desc")
e.DataRow("登记事项") = fdr("作息类型") & "登记"
Dim dr As DataRow = e.DataTable.Find("姓名 = \'" & e.DataRow("姓名") & "\' and _Identify < " & e.DataRow("_Identify"), "_Identify desc")
If dr Is Nothing Then
e.DataRow("登记状态") = fdr("作息类型") & "签到"
Else
If dr("登记状态").Contains("签到") Then
e.DataRow("登记状态") = fdr("作息类型") & "签退"
Else
e.DataRow("登记状态") = fdr("作息类型") & "签到"
End If
End If
Else
e.DataRow("登记事项") = Nothing
e.DataRow("事项详情") = Nothing
End If
End If

--  作者：有点甜
--  发布时间：2014/6/4 15:11:00
--

你想办法把红色的代码替换一下。

If e.DataCol.Name = "姓名" Then
    e.DataRow("登记时间") =Date.now()
Else If e.DataCol.Name = "登记时间" Then
    If e.NewValue <> Nothing Then
        If DataTables("员工资料").Find("身份证号码 = \'" & sfzh & "\'") Then
            Dim d As Date = new Date(1, 1, 1, e.NewValue.hour, e.newValue.minute, 0)
            Dim fdr As DataRow = DataTables("作息时间表").Find("开始时间 < #" & d & "#", "开始时间 desc")
            e.DataRow("登记事项") = fdr("作息类型") & "登记"
        Else
            e.DataRow("登记事项") = "外来登记"
        End If
        Dim dr As DataRow = e.DataTable.Find("姓名 = \'" & e.DataRow("姓名") & "\' and _Identify < " & e.DataRow("_Identify"), "_Identify desc")
        If dr Is Nothing Then
            e.DataRow("登记状态") = fdr("作息类型") & "签到"
        Else
            If dr("登记状态").Contains("签到") Then
                e.DataRow("登记状态") = fdr("作息类型") & "签退"
            Else
                e.DataRow("登记状态") = fdr("作息类型") & "签到"
            End If
        End If
    Else
        e.DataRow("登记事项") = Nothing
        e.DataRow("事项详情") = Nothing
    End If
End If

--  作者：有点甜
--  发布时间：2014/6/4 15:14:00
--

楼上写错了，再改一下，红色地方自己搞。

If e.DataCol.Name = "姓名" Then
    e.DataRow("登记时间") =Date.now()
Else If e.DataCol.Name = "登记时间" Then
    If e.NewValue <> Nothing Then
        Dim lx As String
        If DataTables("员工资料").Find("身份证号码 = \'" & sfzh & "\'") Then
            Dim d As Date = new Date(1, 1, 1, e.NewValue.hour, e.newValue.minute, 0)
            Dim fdr As DataRow = DataTables("作息时间表").Find("开始时间 < #" & d & "#", "开始时间 desc")
            e.DataRow("登记事项") = fdr("作息类型") & "登记"
            lx = fdr("作息类型")
        Else
            e.DataRow("登记事项") = "来访登记"
            lx = "来访"
        End If
        Dim dr As DataRow = e.DataTable.Find("姓名 = \'" & e.DataRow("姓名") & "\' and _Identify < " & e.DataRow("_Identify"), "_Identify desc")
        If dr Is Nothing Then
            e.DataRow("登记状态") = lx & "签到"
        Else
            If dr("登记状态").Contains("签到") Then
                e.DataRow("登记状态") = lx & "签退"
            Else
                e.DataRow("登记状态") = lx & "签到"
            End If
        End If
    Else
        e.DataRow("登记事项") = Nothing
        e.DataRow("事项详情") = Nothing
    End If
End If

--  作者：李孝春
--  发布时间：2014/6/4 15:45:00
--

有点甜老师代码已经弄成如下，但是是否出现了一个逻辑错误。
运行效果如下啦

此主题相关图片如下：000.jpg

外来人员登记效果正常

此主题相关图片如下：111.jpg

单位职工登记效果不正常了没有根据作息时间来判断咯

代码如下：
If e.DataCol.Name = "姓名" Then
e.DataRow("登记时间") =Date.now()
Else If e.DataCol.Name = "登记时间" Then
If e.NewValue <> Nothing Then
Dim lx As String
Dim sd As WinForm.TextBox = Forms("考勤与来访登记").Controls("TextBox4")
Dim sfzh As String = sd.Text
Dim dr1 As DataRow
Dim po As Integer
dr1 = DataTables("员工资料").Find("身份证号码 = \'" & sfzh & "\'")
po = Tables("员工资料").FindRow(dr1)
If po >= 0 Then \'如果找到
Dim d As Date = new Date(1, 1, 1, e.NewValue.hour, e.newValue.minute, 0)
Dim fdr As DataRow = DataTables("作息时间表").Find("开始时间 < #" & d & "#", "开始时间 desc")
e.DataRow("登记事项") = fdr("作息类型") & "登记"
lx = fdr("作息类型")
Else
e.DataRow("登记事项") = "来访登记"
lx = "来访"
End If
Dim dr As DataRow = e.DataTable.Find("姓名 = \'" & e.DataRow("姓名") & "\' and _Identify < " & e.DataRow("_Identify"), "_Identify desc")
If dr Is Nothing Then
e.DataRow("登记状态") = lx & "签到"
Else
If dr("登记状态").Contains("签到") Then
e.DataRow("登记状态") = lx & "签退"
Else
e.DataRow("登记状态") = lx & "签到"
End If
End If
Else
e.DataRow("登记事项") = Nothing
e.DataRow("事项详情") = Nothing
End If
End If

--  作者：有点甜
--  发布时间：2014/6/4 15:48:00
--

改一下这段，如果还错，自己弹出一下msgbox(sfzh)看一下

        dr1 = DataTables("员工资料").Find("身份证号码 = \'" & sfzh & "\'")

po = Tables("员工资料").FindRow(dr1)

If dr1 IsNot Nothing Then \'如果找到

--  作者：李孝春
--  发布时间：2014/6/4 15:58:00
--  回复：（有点甜）改一下这段，如果还错，自己弹出一下...
有点甜老师弹出提示内容是正常可以读取身份证号问题就在哪逻辑判断咯
如果员工信息表中有现在录入的这个身份证号那么就将登记事项登记状态更改为作息时间表中对应的信息
目前外来人员的是正常的如上图！

--  作者：有点甜
--  发布时间：2014/6/4 16:08:00
--

逻辑不会有错，你去员工资料表看是否有该身份证号码存在。

下面的代码不会有错，这句错了，自己排查一下 dr1 = DataTables("员工资料").Find("身份证号码 = \'" & sfzh & "\'")

[此贴子已经被作者于2014-6-4 16:08:15编辑过]