以下是引用lihe60在2009-12-15 10:43:00的发言:
就是在自定义录入界面方面,datalist比table好。
其实14楼的结果,不是因为 datalist,而是用文本框控件的“KeyDown”事件中实现:
参考代码如下:
Dim tb As Table = Forms("窗口1_Table1")
If e.KeyCode = Keys.Up Then
tb.Position = tb.Position - 1
e.Cancel = True
ElseIf e.KeyCode = Keys.Down Then
tb.Position = tb.Position + 1
e.Cancel = True
ElseIf e.KeyCode = Keys.Enter Then
If tb.Current IsNot Nothing Then
Tables("jjmx").Current("ygbh") = tb.Current("ygbh")
Tables("jjmx").Current("xm") = tb.Current("xm")
End if
ElseIf e.KeyCode = Keys.Escape Then
e.Form.Close()
End If
可能是楼主还没有看来真实所在
[此贴子已经被作者于2009-12-15 13:41:22编辑过]