如果你的datagrid绑定的是Dataview,简单,令dataview.AllowNew = false
否则:
Private Sub DataGrid1_Navigate(ByVal sender As System.Object, ByVal ne As System.Windows.Forms.NavigateEventArgs) Handles DataGrid1.Navigate
If ne.Forward Then
Dim cm As CurrencyManager = CType(BindingContext(DataGrid1.DataSource, DataGrid1.DataMember), CurrencyManager)
Dim dv As DataView = CType(cm.List, DataView)
dv.AllowNew = False
End If
End Sub