窗口keydown事件
If e.Keycode = 13 Then Dim nr As Row = Tables("表A").AddNew nr("第一列") = e.Sender.Text e.Sender.text = "" e.Sender.Select e.cancel = TrueEnd If