Dim t1 As Table=Tables("生产通知单明细1") Dim t2 As Table =Tables("生产通知单明细2") For i As Integer = Tables("生产通知单明细1").Rows.count-8 To Tables("生产通知单明细1").Rows.count-1 Dim dr1 As Row = t1.Rows(i) Dim dr2 As Row =t2.Rows(i) If dr1.IsNull("支数") = False Then dr1.save() dr2.save() End If dr1.delete() dr2.delete() Next