主题：请问时间选择控件，选择后能否输入当前时间？

此主题相关图片如下：1.png

如果单元格没有内容，直接按两次空格，当前日期和时间就自动输入了

textChanged事件

 

Dim d As Date
If Date.TryParse(e.sender.text,d) Then
    If d.Hour = 0 AndAlso d.Minute = 0 AndAlso d.Second = 0 Then
        e.sender.text = new Date(d.year, d.month, d.day, Date.now.hour, d.now.Minute, d.now.Second)
    End If
End If

为什么程序发布处，那个选择发布时间的控件，点击“今日” 后，可以自动填入日期和时间？

看3楼。

我怎么找不到这个事件，在哪里面

 

哦，ChangeEdit事件

 

If e.Col.name = "第三列" Then
    Dim d As Date
    If Date.TryParse(e.text,d) Then
        If d.Hour = 0 AndAlso d.Minute = 0 AndAlso d.Second = 0 Then
            e.Table.FinishEditing
            e.Row(e.Col.name) = new Date(d.year, d.month, d.day, Date.now.hour, d.now.Minute, d.now.Second)
            e.Table.StartEditing
        End If
    End If
End If