当删除DataGrid最后页的所有记录时,保证分页不会出错的2种代码

第一种:

    Public Sub MyDataGrid_Delete()Sub MyDataGrid_Delete(sender As Object, e As DataGridCommandEventArgs)
        dim i as String = CType(e.Item.FindControl("lblID"), Label).Text  
        Response.write (i)
        DeleteRecord(i)  'Call Sub
        MyDataGrid.EditItemIndex = -1
        Try
           BindGrid()      
        Catch 
           MyDataGrid.CurrentPageIndex = MyDataGrid.PageCount - 1
           BindGrid()
        End Try
    End Sub

第二种:

    Public Sub MyDataGrid_Delete()Sub MyDataGrid_Delete(sender As Object, e As DataGridCommandEventArgs)
        dim i as String = CType(e.Item.FindControl("lblID"), Label).Text  
        Response.write (i)
        DeleteRecord(i)  'Call Sub
        MyDataGrid.EditItemIndex = -1
        If MyDataGrid.Items.Count = 1 and MyDataGrid.CurrentPageIndex > 0 Then
           MyDataGrid.CurrentPageIndex = MyDataGrid.CurrentPageIndex - 1 
        End If
        BindGrid()      
    End Sub