将报价申请的款式行记录选中填入到下单开发进度表 - 专家坐堂 - 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

说明一下你的【选中】的操作。

如果是左边的勾选，参考 http://www.foxtable.com/webhelp/scr/1636.htm

如果是有一个逻辑列，勾选了，参考 http://www.foxtable.com/webhelp/scr/1533.htm

如果是直接用鼠标框选了若干连续的行，参考 http://www.foxtable.com/webhelp/scr/1597.htm

是直接用鼠标框选了若干连续的行

Dim t As Table = Tables("报价申请")
For i As Integer = t.TopPosition To t.BottomPosition
    Dim dr As Row = t.rows(i)
    Dim r As Row = Tables("开发进度").addnew()
    For n As Integer = 0 To nmb.length -1
        r(nmb(n)) = dr(nma(n))
    Next
Next

还有一个情况，同时要给报价申请选定的行，某一列赋值怎么写

dr("某列") = "1234"
Next

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