将报价申请的款式行记录选中填入到下单开发进度表 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

将选中的报价申请的款式行记录填入到下单开发进度表，下面代码要怎么改？（下面的代码是将所有的行记录插入）

Dim Result As DialogResult

Result = MessageBox.Show("将报价申请的款式选中填入到下单开发进度表","提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)

If Result = DialogResult.Yes Then

' And User.IsRole("管理员")

Tables("开发进度").stopredraw

Dim nma() As String = {"code","kind_desc","model_desc","wlbyend_desc","name","colthl","useunit","stru","PriceA_NoInvo","ftyname","weight","stockunit","minnum","ColorBegNum","fConvert"} 'A表数据来源列

Dim nmb() As String = {"产品编号","一层类别","二层类别","三层类别","产品名称","布封","计量单位","成份","价格","厂家","克重","采购单位","最低采购","起色量","转换率"} 'B表数据接收列

For Each dr As Row In Tables("报价申请").Rows

' If DataTables("物料资料").DataRow("产品编号") Is Nothing Then

Dim r As Row = Tables("开发进度").addnew()

For n As Integer = 0 To nmb.length -1

r(nmb(n)) = dr(nma(n))

' End If

Tables("开发进度").ResumeRedraw()

End If

主题：将报价申请的款式行记录选中填入到下单开发进度表