奇怪 以下代码 Dim r As Row = Tables("销售单明细").AddNew
r("单据号")=Tables("销售单").Current("单据号")
r("日期")=Tables("销售单").Current("日期")
r("客户编码") = Tables("销售单").Current("客户编码")
r("客户名称") = Tables("销售单").Current("客户名称")
r("业务员")=Tables("销售单").Current("业务员")
r("仓库")=Tables("销售单").Current("仓库")
r("凭证号")=Tables("销售单").Current("备注")
最后一笔怎么没有保存 ?