上传文件不要用开发版!
If e.DataCol.name = "日期时间" Then If e.DataRow("日期时间").Hour & ":" & e.DataRow("日期时间").Minute >= #08:00:00# Then e.DataRow("迟到")=True End IfEnd If