以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  赋值  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=75857)
--  作者：qinlao666
--  发布时间：2015/10/15 21:33:00
--  赋值

For Each r1 As Row In Tables("报价明细产品查询_产品").GetCheckedRows
    Dim r2 As Row = Tables("报价明细").addnew（）

    r2("产品名称")=r1("产品名称")
    r2("系列代号")=r1("系列代号")
Next
e.Form.Close

 

 

老师如何把值就赋在当前行，而不是向上面那样赋在增加行里面
--  作者：大红袍
--  发布时间：2015/10/15 21:38:00
--  

For Each r1 As Row In Tables("报价明细产品查询_产品").GetCheckedRows
    Dim r2 As Row = Tables("报价明细").Current

    r2("产品名称")=r1("产品名称")
    r2("系列代号")=r1("系列代号")
Next
e.Form.Close