[求助]依旧是关于同一数据同时输入2个表的问题[已解决] - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目10.table

从论坛帖子下载了这个附件，关于同一数据同时输入2个表的问题。

同时输入是没有问题，问题是表A数据在第一行，而表B数据是跳行到了第2行，同样再次输入数据，表A数据在第2行，表B数据跳行到了第4行。

我看了下输入窗口按钮的代码，代码如下：

Dim r1 As Row = Tables("表A").AddNew()

Dim r2 As Row = Tables("表B").AddNew()

r1("第一列") = e.Form.Controls("TextBox1").Value

r1("第二列") = e.Form.Controls("TextBox2").Value

r1("第三列") = e.Form.Controls("TextBox3").Value

r1("第四列") = e.Form.Controls("TextBox4").Value

r2("第一列") = e.Form.Controls("TextBox1").Value

r2("第二列") = e.Form.Controls("TextBox2").Value

r2("第三列") = e.Form.Controls("TextBox3").Value

r2("第四列") = e.Form.Controls("TextBox4").Value

请问是什么原因造成这个问题的

[此贴子已经被作者于2012-4-26 20:16:31编辑过]

两个方法

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目10.zip

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目11.zip

原来把申明变量DIM放到下面，就那么简单的解决了

唉。没编程基础真悲哀。。。。。。。

非常谢谢！

再弱弱的问下，放到上面一起申明变量怎么会发生跳行的问题呢？这有什么说法么？

[此贴子已经被作者于2012-4-26 20:18:30编辑过]

没有区别，是你自己在表A的datarowadded事件中加了：Tables("表B").AddNew()

哦，原来如此，我也是在论坛找相关帖子。然后下载了看代码和测试，没注意表A的事件有代码，只注意窗口按钮的代码了图片点击可在新窗口打开查看

。非常感谢各位指教

主题：[求助]依旧是关于同一数据同时输入2个表的问题[已解决]