主题：文本框绑定

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.rar

      谢谢程版,测试成功.但是我发现一个问题.因为你这个例子没有文本框显示数据的代码的.我在指定行打开窗口后点击文本框时,表中的数据会删除.后来加入了MR725兄的显示代码后就好了,但是表和文本框不能同步,能同步就好了.

表和文本框要同步,就不能在leave事件中设置了,在TextChanged事件中设置试一试~

Validating事件代码改为：

if left(e.Sender.name,7) = "TextBox"
    dim n as integer = tables("表A").position
    dim xh as String = e.Sender.name.Replace("TextBox","")
    if n + val(e.Sender.name.Replace("TextBox",""))> 0 and n + val(e.Sender.name.Replace("TextBox",""))< DataTables("表A").DataRows.Count +1
        tables("表A").rows(n + val(e.Sender.name.Replace("TextBox",""))-1)("第一列") = e.Sender.text
    else
        MessageBox.show("超出主表范围")
    end if
end if

不判断超出主表行数范围出错！

全局事件的Enter事件加入以下代码：

if left(e.Sender.name,7) = "TextBox"
    dim n as integer = tables("表A").position
    dim xh as String = e.Sender.name.Replace("TextBox","")
    if n + val(e.Sender.name.Replace("TextBox",""))> 0 and n + val(e.Sender.name.Replace("TextBox",""))< DataTables("表A").DataRows.Count +1
        e.Sender.Value = tables("表A").rows(n + val(e.Sender.name.Replace("TextBox",""))-1)("第一列")
    else
        MessageBox.show("超出主表范围")
    end if
end if

表属性的PositionChanged事件增加如下代码：

Forms("窗口1").open()
dim n as integer = tables("表A").position
for i as Integer = 1 to 5
    if  n + i -1< DataTables("表A").DataRows.Count and n + i-1 > -1
        Forms("窗口1").Controls("TextBox" & i).Value = tables("表A").rows(n +i-1)("第一列")
    else
        Forms("窗口1").Controls("TextBox" & i).Value = nothing
    end if
next

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.rar

for i as Integer = 1 to 5  这里的5为您的文本框名称的最大编号，上述代码组合增减文本框仅需修改此处。

               ok,完美.本来我按照你的代码修改的差不多了,就是表事件没有做到,窗口的基本和你一样,当然是跟着你的修改的.如果狐爸能做到直接可以选项就漂亮了.

        哈哈，大家的需求各有不同，啥都要他来完成有些牵强，能自己实现的还是可以自己实现，原则上，作为设计角度看，只要能实现，就尽量自己实现，这样灵活度才高，越是想设计过程简单一点，就可能会导致灵活度大大降低，因为都被贺老师的框框框死了，对与设计者，会越被束缚越紧（个人意见）。

 但我们是菜鸟,越简单越好.

程版楼主在32楼要求: 表和文本框不能同步,能同步就好了～  你的34楼实例好像不可以同步啊。

还有： Enter事件 有  MessageBox.show("超出主表范围")  为何 Validating事件 中还有重复呢？

呵呵，不能同步？楼主怎么没说？郁闷！