【ADD/EDIT页面】-在ADD/EDIT页面删除后，DataGridView的刷新问题

Private Sub pShowViewMode()
If vDs01City.Tables(0).Rows.Count < 1 Then Exit Sub
Dim f01CityEdit As New f01CityEdit
f01CityEdit.setEventAction("VIEW")
f01CityEdit.setEventCode(Me.dgv01City.Item("Code", dgv01City.CurrentRow.Index).Value() & "")
f01CityEdit.ShowDialog()

Select Case vpSource
Case "AddNew" : vpSource = "" : Call btnAdd_Click(New Object, New System.EventArgs)
Case "Delete" : vpSource = "" : Call btnRefresh_Click(New Object, New System.EventArgs)
End Select
If dgv01City.Enabled Then dgv01City.Select()
End Sub