^_^呵呵，输入数据时，不能用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 |
...............
...............
[此贴子已经被作者于2010-1-25 17:03:23编辑过]
加好友 
发短信
Post By：2010/1/25 17:03:00 [只看该作者]
