1、直接keydown事件处理就好了,没必要用keyup。
If e.keycode = keys.Enter Then
e.cancel = true
\'代码
e.sender.Select
e.sender.SelectAll
End If
2、
Tables("钢筋").Current("某列") = Date.Now
Tables("钢筋").Current("某列") = true
validating事件 e.cancel = true