For Each r1 As Row In Tables("报价明细产品查询_产品").GetCheckedRows Dim r2 As Row = Tables("报价明细").addnew()
r2("产品名称")=r1("产品名称") r2("系列代号")=r1("系列代号")Nexte.Form.Close
老师如何把值就赋在当前行,而不是向上面那样赋在增加行里面