主题：实践是检验真理的唯一标准

其实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
 可能是楼主还没有看来真实所在