主题：数据表中怎么增加多行？？？

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
    Next
Next

3、

Tables("表A").DataTable.RejectChanges

For i As Integer = 1 To 10
    Dim nr As Row = Tables("表A").AddNew()
    nr("第一列") = 123
    nr("第二列") = e.form.controls("textbox1").text
Next

Dim dt As DataTable = Tables("表A").DataTable
If dt.HasChanges Then
    Dim Result As DialogResult
    Result = MessageBox.Show("是否保存?", "提示", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question)
    If Result = DialogResult.Yes Then
        dt.Save
    ElseIf result = DialogResult.No Then
        dt.RejectChanges
    ElseIf result = DialogResult.Cancel Then
        e.cancel = True
    End If
End If