主题：请帮助分析？

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

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