高分悬赏，gridview的问题！！！！
用代码实现gridview的编辑，删除，分页显示．各位帮帮忙给写一写，小弟感激不禁．我都哭了，可怜可怜我吧
[解决办法]
把表拖进form里，建立数据集，下面的是删除
Dim bm As BindingManagerBase
Private Sub Form10_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
dapsw.Fill(DataSet21)
DataGrid1.SetDataBinding(DataSet21, "psw ")
bm = Me.BindingContext(DataSet21, "psw ")
AddHandler bm.PositionChanged, AddressOf position_changed
position_changed(sender, e)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim dgrDelete = DialogResult
Try
dgrDelete = MessageBox.Show( "是否要删除记录？ ", "confirm delete ", MessageBoxButtons.YesNo)
If dgrDelete = DialogResult.Yes Then
With bm
.RemoveAt(.Position)
End With
dapsw.Update(DataSet21)
DataSet21.AcceptChanges()
End If
Catch err As Exception
MessageBox.Show(err.Message)
End Try
End Sub
Private Sub Form10_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
Dim dgrResult As DialogResult
If DataSet21.HasChanges() Then
dgrResult = MessageBox.Show( "Do you want to save the changes? ", "psw ", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If dgrResult = DialogResult.Yes Then
Try
dapsw.Update(DataSet21, "psw ")
DataSet21.AcceptChanges()
Catch err As Exception
MsgBox(err.Message)
End Try
End If
End If
End Sub
