文本框绑定 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 文本框绑定

共有20238人关注过本帖树形打印复制链接主题：文本框绑定

blackzhu

小大 11楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐仙帖子：9875 积分：57584 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2010/1/25 17:15:00 [显示全部帖子]

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

blackzhu

小大 12楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐仙帖子：9875 积分：57584 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2010/1/25 17:16:00 [显示全部帖子]

blackzhu

小大 13楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐仙帖子：9875 积分：57584 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2010/1/26 11:15:00 [显示全部帖子]

以下是引用程兴刚在2010-1-25 17:59:00的发言：
1、文本框命名为TextBox1～TextBoxN
2、窗口全局事件的Leave事件代码设置为：
  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).text
end if

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

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