主题：求助：如何根据作息时间表来判断登记事件及事件说明？

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

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

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

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

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

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

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

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

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

 自己调试，在代码里面弹出身份证号看一下。msgbox(sfzh)

 然后单独执行这句代码 DataTables("员工资料").Find("身份证号码 = '" & sfzh & "'")  看有没有找到值。

 数据的问题，代码没有错。