代码不执行，求助！ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Select Case e.DataCol.name
    Case "下班时间"
        If e.NewValue <> Nothing AndAlso e.DataRow.IsNull("上班时间") = False Then
            If new Date(1900,1,1,cdate(e.NewValue).hour, cdate(e.NewValue).minute,1) < new Date(1900,1,1,cdate(e.DataRow("上班时间")).hour,cdate(e.DataRow("上班时间")).minute, 1) Then
                MessageBox.show("'下班时间'不能早于'上班时间',请输入正确的时间!","提示1!")
                e.Cancel=True
            End If
        End If
    Case "上班时间"
        If e.NewValue <> Nothing AndAlso e.DataRow.IsNull("下班时间") = False Then
            If new Date(1900,1,1,cdate(e.NewValue).hour, cdate(e.NewValue).minute,1) > new Date(1900,1,1,cdate(e.DataRow("下班时间")).hour,cdate(e.DataRow("下班时间")).minute, 1) Then
                MessageBox.show("'下班时间'不能早于'上班时间',请输入正确的时间!","提示2!")
                e.Cancel=True
            End If
        End If
End Select

主题：代码不执行，求助！