主题：请帮助分析？

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

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