3、将TextBox1的KeyDown事件代码设为:
Dim tbl As
Table = Tables("窗口1_Table1")
If e.KeyCode = Keys.Up Then
tbl.Position = tbl.Position - 1
e.Cancel = True
ElseIf e.KeyCode = Keys.Down Then
tbl.Position = tbl.Position + 1
e.Cancel = True
ElseIf e.KeyCode = Keys.Enter Then
If tbl.Current IsNot Nothing
Then
Tables("订单").Current("客户ID") = tbl.Current("客户ID")
End
if
e.Form.Close()
End
If
这样在文本框中按上下箭头键,可以在Table中选择不同的行,按回车键会将选定行的客户ID输入到订单表的当前行中。
为了避免按上下箭头键的时候,文本框的光标会移动,下面的代码是必须的:
e.Cancel = True
我按照帮助所说的去做,发现当在TABLE中选择回车时,这时发生的KeyDown事件应该不在TextBox1了,而应该在TABLE中