主题：赋值

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

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

老师如何把值就赋在当前行，而不是向上面那样赋在增加行里面