如何去掉Datagrid中的新增行[转]

 1  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 2 
 3         dtNew.Columns.Add("时间", GetType(String))
 4         dtNew.Columns.Add("成本", GetType(String))
 5         Dim intCircle As Integer
 6         For intCircle = 0 To 3
 7             Dim dtrow As DataRow
 8 
 9             dtrow = dtNew.NewRow
10             dtrow(0) = 2000 + intCircle
11             dtrow(1) = 3500 + 20 * intCircle
12             dtNew.Rows.Add(dtrow)
13         Next
14         Dim dtView As New DataView
15         dtView = dtNew.DefaultView
16         dtView.AllowNew = False              '消除新增行
17         dtView.AllowDelete = False        '不让用户通过键盘上的Delete键删除行
18         Me.DataGrid1.DataSource = dtView
19 
20     End Sub
21 
22 

思路：
        将DataGrid的数据源邦定到一个默认的数据视图，而让这个视图的AllowNew与AllowDelete属性设为false即可。