为什么只能删除一行？

[marbo_good]

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
For RowListIndex As Integer = 0 To 10
Row = Table.NewRow
Row(0) = RowListIndex + 1
Row(1) = RowListIndex + 2
Row(2) = RowListIndex + 3
Table.Rows.Add(Row)
Next RowListIndex
dgList.DataSource = Table

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim i As Integer
i = MsgBox("请确认操作！", MsgBoxStyle.Information + MsgBoxStyle.YesNo + MsgBoxStyle.DefaultButton1, "删除提示信息！")
If i = 6 Then 'clear
Row.Delete()
dgList.DataSource = Table
'Row.AcceptChanges()
End If
End Sub
不管按button4多少次都只能删除一行

[marbo_good]

在线等，知道的帮解决下，谢谢啦！

[我一直在寻找]

在删除时应该先执行
Row=table.Rows(0)

[marbo_good]

怎样来获取我选择的是哪一行啊
太不熟悉VB。net啦

[marbo_good]

Row=table.Rows(0)
如果加入这句
每次都是删除第一条记录啊

[我一直在寻找]

问题解决了就结贴；并且把分给我们呀。

[我一直在寻找]

Row=table.Rows(dgList.SelectedItems(0).Index)

[marbo_good]

问题解决啦，谢谢！