1、
Tables("表A").AddNew(30)
2、
Dim t As Table = Tables("表A")For i As Integer = t.LeftCol To t.RightCol For j As Integer = t.TopRow To t.BottomRow t(i,j) = Nothing NextNext
3、
Tables("表A").DataTable.RejectChanges