主题：文本框绑定

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开始即可
         通过上述设置，输入完成，离开该文本框控件时自动写入产品列指定位置。