主题：文本框绑定

^_^呵呵，输入数据时，不能用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

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

搞定,谢谢,其实我应该想到的,每一个文本框对应是怎么样的,只是ROWS(N+1)这一小段我没有想到.

收藏

1、文本框命名为TextBox1～TextBoxN
2、窗口全局事件的Validating事件代码设置为：
  if left(e.Sender.name,7) = "TextBox"
    dim n as integer = tables("表A").position
    tables("表A").rows(n + val(e.Sender.name.Replace("TextBox",""))-1)("产品") = Forms("窗口1").Controls(e.Sender.name).text
end if

    错误已经更正！同时说错了事件名称，应为Validating事件

       注：1、此法 其它控件无需设置代码。
             2、TextBox1～TextBoxN   N为最大数无限制的整数
             3、其他不需要参与写入操作的文本框控件命名时，其最左侧不要以TextBox开始即可
         通过上述设置，输入完成，离开该文本框控件时自动写入产品列指定位置。

 2、TextBox1～TextBoxN   N为最大数无限制的整数

也就是该类文本框无上数限制，允许这样为N行操作而无需修改代码，只需要按照顺序规则添加文本框即可，相对灵活。

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

嘿嘿。又捡到了实用代码

       呵呵，算不上强，长时间工作忙，不怎么来论坛，手痒痒，随便练练，见笑了！

  程版,能不能做一个简单的例子,我按照你的代码修改,出错.还有MR725兄的代码文本框和表不同步.

哦，是我疏忽了，
将：
tables("表A").rows(n + val(e.Sender.name.Replace("TextBox",""))-1)("产品") = Forms("窗口1").Controls(e.Sender).text

这一行改成这样：
tables("表A").rows(n + val(e.Sender.name.Replace("TextBox",""))-1)("产品") = Forms("窗口1").Controls(e.Sender.name).text

更简单一点是这样：

tables("表A").rows(n + val(e.Sender.name.Replace("TextBox",""))-1)("产品") = e.Sender.text

全部代码也可以这样：
if left(e.Sender.name,7) = "TextBox"
    dim n as integer = tables("表A").position
    dim xh as String = e.Sender.name.Replace("TextBox","")
    n = n + val(xh)-1
    tables("表A").rows(n)("产品") = e.Sender.text
end if


昨天没有测试，随手放上来了，现已更正，示例文件在楼下！