主题：如何判断编号末尾数单双来显示对应状态呢？

 代码如下

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