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

Dim r1 As Row = Tables("订单信息").Current
Dim h As WinForm.NumericComboBox = e.Form.Controls("行数")
MessageBox.Show(h.text)
Dim r2 As Row = Tables("待确认项_待确认表").AddNew(h.text)
r2("工单号") = r1("工单号")
r2("制造单号") = r1("制造单号")
r2("款号") = r1("款号")
r2("业务员") = r1("业务员")

NumericComboBox插件中输入大于1的数值，结果只增加一行，请问哪里错了

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