删除这样写
For i As Integer = Tables("到货单").Rows.count-1 To 0 Step -1 Tables("到货单").Rows(i).deleteNextTables("到货单").save