以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  将报价申请的款式行记录选中填入到下单开发进度表  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=118912)
--  作者：yetle
--  发布时间：2018/5/14 9:21:00
--  将报价申请的款式行记录选中填入到下单开发进度表
将选中的报价申请的款式行记录填入到下单开发进度表，下面代码要怎么改？（下面的代码是将所有的行记录插入）


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))
      Next
\' End If
Next
Tables("开发进度").ResumeRedraw()

   
End If
--  作者：有点甜
--  发布时间：2018/5/14 9:42:00
--  

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

 

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

 

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

 

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

 
--  作者：yetle
--  发布时间：2018/5/14 9:47:00
--  
是直接用鼠标框选了若干连续的行
--  作者：有点甜
--  发布时间：2018/5/14 9:48:00
--  
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
--  作者：yetle
--  发布时间：2018/5/14 10:20:00
--  
还有一个情况，同时要给报价申请选定的行，某一列赋值怎么写
--  作者：有点甜
--  发布时间：2018/5/14 10:22:00
--  

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   

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