以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]新增多行并赋值  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=88397)
--  作者：syjylyq
--  发布时间：2016/8/2 9:54:00
--  [求助]新增多行并赋值

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的数值，结果只增加一行，请问哪里错了
--  作者：狐狸爸爸
--  发布时间：2016/8/2 11:34:00
--  

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

 
--  作者：syjylyq
--  发布时间：2016/8/2 14:00:00
--  
OK,谢谢！