If Tables("入库") .Rows.count = 0 AndAlso Tables("入库.入库管理") .Rows.count = 0 Then ReturnEnd IfIf Tables("入库").Current.IsNull("进货单编号") = False AndAlso Tables("入库.入库管理") .Rows.count = 0 Then Tables("入库").Current.DeleteEnd If
Tables("入库").save()Tables("入库管理").save()