Dim a As Table = Tables("总工资表") Dim b As Table = Tables("工资存档") For r As Integer = 0 To a.Rows.Count - 1 dim nr as row = b.AddNew For c As Integer = 0 To a.cols.Count - 1 nr(c) = a.Rows(r)(c) Next Next For r As Integer = a.rows.Count - 1 To 0 Step - 1 a.rows(r).Delete Next