Ver Mensaje Individual
  #1 (permalink)  
Antiguo 02/03/2006, 09:21
Avatar de Mulato
Mulato
 
Fecha de Ingreso: diciembre-2001
Ubicación: Caracas
Mensajes: 158
Antigüedad: 23 años
Puntos: 0
No logro paginar un datagrid...

Saludos colegas...

He tratado de paginar este datagrid y aún no lo he podido lograr, los datos me los traigo desde un Webservice por un dataset aqui les coloco el codigo a ver que encuentran...

La primera pagina me la trae y muestra 5 de una total de 5 creando los contadores 1,2,3... Cuando presiono en dos o en tres el grid se pone en blanco ¿?

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Llenado de reporte de Correspondencia
If Not Page.IsPostBack Then

Dim DS_proc As New DataSet
Dim objws As New ws_ref_con.Datos

'Carga de consulta de Correspondencia
DS_proc = objws.rep_arch(Session("costos"))
DS_proc.Tables(0).TableName = "consulta"
DG_Proc.DataSource = DS_proc.Tables("consulta")
DG_Proc.DataBind()
Else
Datos.rep_arch(Session("costos"))
End If
End Sub

Private Sub DG_Proc_PageIndexChanged(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridPageChangedEvent Args) Handles DG_Proc.PageIndexChanged
DG_Proc.CurrentPageIndex = e.NewPageIndex
DG_Proc.DataBind()
End Sub
Private Sub DG_Proc_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DG_Proc.SelectedIndexChanged
'Selección de opción para ver detalles...
Dim carnet As String
Dim costos As String
Session("num_doc") = DG_Proc.SelectedItem.Cells(1).Text
carnet = (Session("carnet"))
costos = (Session("costos"))
Server.Transfer("cer_ref.aspx", True)
End Sub

Agradezco de antemano la ayuda...
__________________
Necesito aprender para compartir mi saber...