主题：[求助]日期问题

我想把日期栏的输入方式变成，单击空格键输入今天日期，双击空格键变成明天。

怎么才能做到，我是新手麻烦写详细点。

谢谢

keydown事件

If e.keycode = 32 Then
    Dim cname As String = e.Table.cols(e.Table.colsel).name
    If cname = "第四列" Then
        static ptime As Date = Date.now
        Dim sp As TimeSpan = Date.now - ptime
        ptime = Date.now
        If sp.TotalMilliseconds <= 500 Then '双击
            e.Table.current(cname) = Date.today.AddDays(1)
        Else
            e.Table.current(cname) = Date.today
        End If
        e.cancel = True
    End If
End If

或者keydownEdit事件

If e.keycode = 32 Then
    Dim cname As String = e.Table.cols(e.Table.colsel).name
    If cname = "第四列" Then
        static ptime As Date = Date.now
        Dim sp As TimeSpan = Date.now - ptime
        ptime = Date.now
        If sp.TotalMilliseconds <= 500 Then '双击
            e.Text = Date.today.AddDays(1)
        Else
            e.Text = Date.today
        End If
        e.cancel = True
    End If
End If