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

给俺一个贴图看看, 还没有见识过呢~~ 

楼主的意思应该是这个吧。

http://www.foxtable.com/dispbbs.asp?boardid=2&Id=2195&page=5

对，就是这样的，不过你用的是datalist,而不是table。

如何用table做成这个效果？

菜鸟foxtable
你做的软件报价是多少？

一样的，你可以更改代码。
Dim dst as WinForm.DataList = e.form.Controls("DataList1")
If e.KeyCode = Keys.Up Then
    dst.Position = dst.Position - 1
End If
If e.KeyCode = Keys.Down Then
    dst.Position = dst.Position + 1
End If

白菜价。。。根据模块定。

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

Dim tb As table= Forms("窗口1_Table1")
这个代码有问题？

此主题相关图片如下：未命名.bmp

 dim tb as table=tables("窗口1_Table1")
笔误而已.