DataGrid插入行的问题！！！

[骑车的娃儿]

Dim mTab as new DataTable("aa")
Sub Fun插入行()
Dim RowNumber As Integer
RowNumber = Me.DataGrid1.CurrentRowIndex
Dim NewRow As DataRow
NewRow = mTab.NewRow

NewRow.Item("名称") = "新插入的行"

mTab.Rows.InsertAt(NewRow, 0)

Me.DataGrid1.SetDataBinding(DataSet, "SWTab")
End Sub

怎么插也是在后面新增一行，怎么解决啊？回答正确给20分。

[hamadou]

dim table as datatable = ctype(me.datagrid1.datasource,datatable)
dim row as datarow = table.newrow
row("name")="aaa"
row("sex")=false
table.rows.insertat(row,1)
me.datagrid1.datasource = table.copy()

[骑车的娃儿]

谢谢 hamadou(闵峰) ，问题已经解决，接分吧！