主题：问题请教

Dim rs As List(of Row) = Tables("制作报价单_Table1").GetCheckedRows()

if rs.count>0 then
For Each r As Row In rs
    Dim dr As DataRow = DataTables("业务明细").AddNew()
    dr("零件价格") = r("零件价格")
    dr("数量") = 1 '设置默认值
    dr("商业折扣") = zk
    直接使用合计模式就好了.http://www.foxtable.com/help/topics/2750.htm
Next

else

messagebox.show("没有选中")

end if