主题：[求助]计件工资录入

由于一个人要做几个工序，所以我要设计以下功能

如： 姓名    工序               数量

       张三    R1，R2，R3

输入工序后自动变成：

       姓名    工序               数量

      张三    R1        

      张三    R2    

      张三    R3

所以，我在ValidateEdit里加了以下代码

If e.Col.Name = "工序" Then
    If e.Text.Contains(",") Then
        Dim Values() As String
        Values = e.Text.split(",")
        e.Text = Values(0)
        Dim cr As Row = e.Row
        Dim Ar As Row
        For Index As Integer = 1 To Values.Length - 1
            Ar = Tables("计件表").InsertNew
            Ar("日期") = cr("日期")
            Ar("令号") = cr("令号")
            Ar("部门") = cr("部门")
            Ar("姓名") = cr("姓名")
            Ar("工种") = cr("工种")
            Ar("工序") = Values(Index)
        Next
    End If
End If

但是运行就自动跳出了。。。。我试了下把Tables("计件表").InsertNew改为DataTables("计件表").AddNew可以，但是那个加行加在最后面。。

谁帮我改改代码啊