如何根据自动生成的编号末尾数字来进行判断单双，在登记状态列里 当编号为单数时候就显示为登记、当编号为双数时候就显示为离开.

数据表名为“表A"。

当时考勤登记时候  在登记状态列里 当编号为单数时候就显示为上班签到、当编号为双数时候就显示为下班签退.

当时来访登记时候  在登记状态列里 当编号为单数时候就显示为来访登记、当编号为双数时候就显示为来访离开.

楼主也发过不少求助帖了，应该知道上传例子的好处：得到的解答速度快、效果好。

如果觉得上传例子麻烦，别人回复，还要从头制作测试例子，更麻烦。

 代码如下

If e.DataCol.Name = "登记编号" AndAlso e.DataRow.IsNull("登记编号") = False Then
    Dim idx As Integer = e.NewValue.IndexOf("号")
    If idx > -1 Then
        idx = val(e.NewValue.Substring(idx-1, 1))
    End If
    If e.NewValue.IndexOf("来访") > -1 Then
        If idx Mod 2 = 1 Then
            e.DataRow("登记状态") = "来访登记"
        Else
            e.DataRow("登记状态") = "来访离开"
        End If
    Else If e.NewValue.IndexOf("考勤") > -1 Then
        If idx Mod 2 = 1 Then
            e.DataRow("登记状态") = "上班签到"
        Else
            e.DataRow("登记状态") = "下班签退"
        End If
    End If
End If