For Each r As Row In Tables("明细")
if r("销售订单id") = Tables("订单").Current("销售订单id") Then
r.Save
End ifNext
代码这么奇怪,难道你没有建立关联,用的是模拟关联表?