主题：日期比较

20楼例子，输入空格可以出现时间，如果不满足报错；如果要取消输入，按下esc键。

我测试没问题，请说明你如何测试的。

20楼例子，输入空格可以出现时间，如果不满足报错；如果要取消输入，按下esc键。

我测试没问题，请说明你如何测试的。

看这个例子啊，你如何测试的？

下载信息  [文件大小：372.0 KB  下载次数：4]

点击浏览该文件:时间.table

If e.DataCol.Name = "日期" Then
    Dim rq As Date = e.DataRow("日期")
    Dim ec As Date = e.DataRow("二次时间")
    If rq.Hour > 07 AndAlso rq.Hour < 14 Then
        e.DataRow("班次") = "早"
    ElseIf rq.Hour > 14 AndAlso rq.Hour < 22 Then
        e.DataRow("班次") = "中"
    ElseIf rq.Hour > 22 OrElse rq.Hour < 06 Then
        e.DataRow("班次") = "夜"
    End If
End If

If e.DataCol.Name = "二次时间" Then
    Dim rq As Date = e.DataRow("日期")
    Dim ec As String = e.DataRow("二次时间")
    If rq.Hour > 07 AndAlso rq.Hour < 14 AndAlso ec IsNot Nothing Then
        e.DataRow("班次") = "带早"
    ElseIf rq.Hour > 14 AndAlso rq.Hour < 22 AndAlso ec IsNot Nothing Then
        e.DataRow("班次") = "带中"
    ElseIf (rq.Hour > 22 OrElse rq.Hour < 06) AndAlso ec IsNot Nothing Then
        e.DataRow("班次") = "带夜"
    End If
End If

1、我测试并不能粘贴，用的是34楼例子，请你告诉我如何操作；

2、

Select e.DataCol.name
    Case "日期", "二次时间" 
        Dim rq As Date = e.DataRow("日期")
        Dim ec As Date = e.DataRow("二次时间")
        If ec <> Nothing Then
            If rq.Hour > 07 AndAlso rq.Hour < 14  Then
                e.DataRow("班次") = "带早"
            ElseIf rq.Hour > 14 AndAlso rq.Hour < 22 Then
                e.DataRow("班次") = "带中"
            ElseIf (rq.Hour > 22 OrElse rq.Hour < 06) Then
                e.DataRow("班次") = "带夜"
            End If
        Else
            If rq.Hour > 07 AndAlso rq.Hour < 14 Then
                e.DataRow("班次") = "早"
            ElseIf rq.Hour > 14 AndAlso rq.Hour < 22 Then
                e.DataRow("班次") = "中"
            ElseIf rq.Hour > 22 OrElse rq.Hour < 06 Then
                e.DataRow("班次") = "夜"
            End If
        End If
End Select

改成

If e.Table.Cols(e.Table.Colsel).name = "二次时间" AndAlso e.keycode <> keys.Space AndAlso e.keycode <> keys.Delete AndAlso e.keycode <> keys.Escape AndAlso e.keycode <> keys.Down AndAlso e.keycode <> keys.up AndAlso e.keycode <> keys.left AndAlso e.keycode <> keys.right Then
    e.Cancel = True
End If