主题：[求助]新增多行并赋值

Dim r1 As Row = Tables("订单信息").Current
Dim h As Integer = e.Form.Controls("行数").Value
For i As Integer = 1 to  h
    Dim r2 As Row = Tables("待确认项_待确认表").AddNew(h.text)
    r2("工单号") = r1("工单号")
    r2("制造单号") = r1("制造单号")
    r2("款号") = r1("款号")
    r2("业务员") = r1("业务员")
Next