Ho una pagina che visualizza in un datagrid i record di una tabella, ho implementato delle funzioni di inserimento eliminazione e modifica dei record. La paginazione del datagrid funziona bene, ma quando inserisco un nuovo record (che viene accodato nel datagrid) vorrei visualizzare l'ultima pagina del datagrid. Qualcuno potrebbe darmi un suggerimento?
Questa è una parte del codice della mia pagina:
sub submit(obj as object, e as eventargs)
....eseguo lo statment di inserimento.......
MyDataGrid.VirtualItemCount = 0
MyDataGrid.CurrentPageIndex=MyDataGrid.PageCount - 1
viewstate("start_index")=MyDataGrid.PageCount - 1
binddata()
end sub
sub binddata(Optional EditIndex as integer = -1)
Dim DS As DataSet
Dim MyCommand As OleDbDataAdapter
dim quanti as integer
con.Open()
if MyDataGrid.VirtualItemCount =0 then
Dim myCommand2 As New OleDbCommand("select count(*) from Users", con)
quanti=mycommand2.executeScalar()
MyDataGrid.VirtualItemCount = quanti
else
quanti=MyDataGrid.VirtualItemCount
end if
MyCommand = New OleDbDataAdapter("select * from Users", con)
DS = new DataSet()
'************************************************* **********
'************************************************* **********
'PAGINAZIONE MANUALE
MyCommand.Fill(ds,(viewstate("start_index")*3),3, "Users")
'************************************************* **********
'************************************************* **********
dim source as dataview=ds.Tables("Users").DefaultView
MyDataGrid.DataSource=source
if EditIndex <> (-1)
MyDataGrid.EditItemIndex = viewstate("riga")
else
MyDataGrid.EditItemIndex = -1
end if
MyDataGrid.DataBind()
con.close()
lblMessage.Text = "Pagina " & MyDataGrid.CurrentPageIndex+1 & _
" di " & MyDataGrid.PageCount & _
". Record presenti=" & quanti
End Sub
![]()