主题：日期比较

老师还没明白吗     二次时间那列   要求只能空格输入   不让手动输入时间     但是现在的情况是   可以手动输入   就是要解决怎么样不让他手动输入时间这个问题

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

 

 

 

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

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

老师啊 我要疯了  这不还是你那个   不都说了不行吗

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

点击浏览该文件:时间 (3).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

又出现2个问题   

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

我找到问题的地方了   我禁用了    这个代码  所以能粘贴     但是如果这个代码用的话    输入的时候就很麻烦    单元格都要用鼠标双击才行     要是不用这个代码   切换下一个单元格的时候就很方便   TAB  方向键   回车    都可以用    而且不用双击单元格就可以输入

不需要双击啊，输入前按一下空格键即可。