主题：文本框绑定

用 For......next 指定吧,绑定都是当前行的! 

dim n as integer = tables("表A").position
for i as integer = 0 to 4
    Forms("窗口1").Controls("TextBox" & i).value = tables("表A")( n+i,"第八列")
next

不会吧,你可是狐狸大哥啦~  

dim n as integer = tables("表A").position   '确定表A当前的行位置
for i as integer = 0 to 4                      
    Forms("窗口1").Controls("TextBox" & i).value = tables("表A")( n+i,"第八列")    
'从当前行起连续向下5行的第八列的值分别给5个TextBox (TextBox0、TextBox1、TextBox2、TextBox3、TextBox4）
next

你是侧重做项目，我没时间做（要用太多连续的时间，挺辛苦的），加之没有一点点基础，只好先学代码（搬弄数据）玩啦～ 呵呵

倒是yang版这个我没完全明白，为何要在DataFormat  事件中？ 楼主只是显示数据呀，难道每个TextBox中还要输入或修改数据？ 那样代码就要另写了～ 有点复杂啊， 呵呵。

真是要输入数据啊！～      那就应该在textchanged的事件中用代码分别返回到表的5行的‘产品’列中了。

dim n as integer = tables("表A").position 
'如果在第二个TextBox中输入或修改数据：(将我上面代码第八列改为 产品 列。）在TextBox1中的TextChanged事件中：
tables("表A").rows(n+1)("产品") = Forms("窗口1").Controls("TextBox1").text 
【注意：5个TextBox名称：(TextBox0、TextBox1、TextBox2、TextBox3、TextBox4）】

显示时： 在表CurrentChanged中用前面的 for......next 代码，
输入或修改时用18楼代码，每个TextBox中的TextChanged事件中分别设置代码。

^_^呵呵，输入数据时，不能用for  ....  next 了！！！
要在每个TextBox中的TextChanged事件中分别设置代码。
第一个文本框的TextChanged事件中：

dim n as integer = tables("表A").position  tables("表A").rows(n)("产品") = Forms("窗口1").Controls("TextBox0").text

第二个文本框的TextChanged事件中：

dim n as integer = tables("表A").position  tables("表A").rows(n+1)("产品") = Forms("窗口1").Controls("TextBox1").text

...............
...............

还是程版的代码强啊～   学习了！