主题：请帮助分析？

请帮助分析？

    我有一个窗口，同时输入6个表，为什么后面5个表正常增加行和输入数据，而第一个表就是窗口中的表有时正常，有时数据在前面已输入的行中出现.如新增的行为3行，第一个表在第二行出现输入的数据，而其他5个表都在第三行出现输入的数据，有时又正常，都在同一行号中显示数据。不知什么原因，每个表中的代码都一样。

 

代码如下：

Dim r1 As Row = Tables("成品输入").AddNew()
r1("品号") = e.Form.Controls("TextBox15").Value
r1("匹号") = e.Form.Controls("TextBox16").Value
r1("颜色") = e.Form.Controls("ComboBox1").Value
r1("合同号") = e.Form.Controls("TextBox7").Value
Dim r2 As Row = Tables("成品结辨").AddNew()
r2("品号") = e.Form.Controls("TextBox15").Value
r2("匹号") = e.Form.Controls("TextBox16").Value
r2("颜色") = e.Form.Controls("ComboBox1").Value
r2("合同号") = e.Form.Controls("TextBox7").Value
Dim r3 As Row = Tables("成品开剪").AddNew()
r3("品号") = e.Form.Controls("TextBox15").Value
r3("匹号") = e.Form.Controls("TextBox16").Value
r3("颜色") = e.Form.Controls("ComboBox1").Value
r3("合同号") = e.Form.Controls("TextBox7").Value
Dim r4 As Row = Tables("成品降等").AddNew()
r4("品号") = e.Form.Controls("TextBox15").Value
r4("匹号") = e.Form.Controls("TextBox16").Value
r4("颜色") = e.Form.Controls("ComboBox1").Value
r4("合同号") = e.Form.Controls("TextBox7").Value
Dim r5 As Row = Tables("成品等外").AddNew()
r5("品号") = e.Form.Controls("TextBox15").Value
r5("匹号") = e.Form.Controls("TextBox16").Value
r5("颜色") = e.Form.Controls("ComboBox1").Value
r5("合同号") = e.Form.Controls("TextBox7").Value
Dim r6 As Row = Tables("成品超标").AddNew()
r6("品号") = e.Form.Controls("TextBox15").Value
r6("匹号") = e.Form.Controls("TextBox16").Value
r6("颜色") = e.Form.Controls("ComboBox1").Value
r6("合同号") = e.Form.Controls("TextBox7").Value

 

 

 

此主题相关图片如下：17.jpg

 

调试过程中上图中左边17、18行、19行与右边17、18、19行对应，而输入的数据就不一样，左边表19行不显示，而显示在18行。

我试一下，祝程老师新年愉快，万事如意。

我用了一下你发的第二个代码，输了几次，删除掉再输，临时没发现问题。非常感谢。我不会编程，没有编程基础，谢谢您的帮助。再次祝您新年愉快

效果很好！更新速度也快，谢谢。