For Each r1 As Row In Tables("报价明细产品查询_产品").GetCheckedRows Dim r2 As Row = Tables("报价明细").Current
r2("产品名称")=r1("产品名称") r2("系列代号")=r1("系列代号")Nexte.Form.Close
加好友 
发短信
Post By：2015/10/15 21:38:00 [显示全部帖子]
