主题：请帮助分析？

请帮助分析？

    我有一个窗口，同时输入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行。

代码完全可以简洁点，您说的问题我没看出来，您可以发文上来件测试一下：

 

Dim s As String = "输入|结辨|开剪|降等|等外|超标"
Dim Values() As String
Values = s.split("|")
Dim r As Row
For Index As Integer = 0 To Values.Length - 1
    r = Tables("成品" & Values(Index)).AddNew()
    r("品号") = e.Form.Controls("TextBox15").Value
    r("匹号") = e.Form.Controls("TextBox16").Value
    r("颜色") = e.Form.Controls("ComboBox1").Value
    r("合同号") = e.Form.Controls("TextBox7").Value
Next

实在不行，这样试试：

 

Dim s As String = "输入|结辨|开剪|降等|等外|超标"
Dim Values() As String
Values = s.split("|")
Dim r As Row
For Index As Integer = 0 To Values.Length - 1
    r = Tables("成品" & Values(Index)).AddNew()
    r("品号") = e.Form.Controls("TextBox15").Value
    r("匹号") = e.Form.Controls("TextBox16").Value
    r("颜色") = e.Form.Controls("ComboBox1").Value
    r("合同号") = e.Form.Controls("TextBox7").Value
Next
Dim wbl As WinForm.Table = e.Form.Controls("Table1") '将Table1改为您的窗口表控件名称
Dim tbl As Table = wbl.Table
tbl.DataTable.Save()

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

谢谢，祝您春节快乐！

 

您的问题估计主要出在窗口表所绑定的主表、关联表、当前table之间的区别（没有及时同步刷新），没有文件，我无法区别！

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

 

如果这样的话，不知道下面的代码能否使用，因为下面的代码相对效率高一点、实用一点：

Dim s As String = "输入|结辨|开剪|降等|等外|超标"
Dim Values() As String
Values = s.split("|")
Dim r As Row
For Index As Integer = 0 To Values.Length - 1
    r= Tables("成品" & Values(Index)).AddNew()
    r("品号") = e.Form.Controls("TextBox15").Value
    r("匹号") = e.Form.Controls("TextBox16").Value
    r("颜色") = e.Form.Controls("ComboBox1").Value
    r("合同号") = e.Form.Controls("TextBox7").Value

    r.load()

Next

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