Problema con boton siguiente y anterior
Publicado por Parami (9 intervenciones) el 11/06/2012 15:11:18
Hola tengo dos botones para que me muestre el siguiente registro y el anterior a unos textbox, pero solo me funciona una vez tanto el anterior como el siguiente.
os pongo el codigo por si me podeis hechar una mano
Dim oDataAdapter As SqlDataAdapter
Dim oDataSet As DataSet
Dim iPosicionActual As Integer
Dim oConexion As SqlConnection
Dim oDatarow As DataRow
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Me.txtIDDistribuidora.Text = 13
oConexion = New SqlConnection
oConexion.ConnectionString = "Data Source=xxxx;Initial Catalog=xxxx;Integrated Security=True"
Dim oComando As SqlCommand
Dim oDataReader As SqlDataReader
Me.oDataAdapter = New SqlDataAdapter("Select * from W_Reparaciones where IdDistribuidora=" & Me.txtIDDistribuidora.Text & " order by IdReparacion", oConexion)
Me.oDataSet = New DataSet
oConexion.Open()
Me.oDataAdapter.Fill(oDataSet, "W_Reparaciones")
oConexion.Close()
Me.iPosicionActual = 0
Me.CargarDatos()
End Sub
Protected Sub imgPrevious_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles imgPrevious.Click
If Me.iPosicionActual = 0 Then
Exit Sub
Else
Me.iPosicionActual = Me.iPosicionActual - 1
Me.CargarDatos()
End If
End Sub
Protected Sub imgNext_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles imgNext.Click
If (Me.iPosicionActual) = (Me.oDataSet.Tables("W_Reparaciones").Rows.Count - 1) Then
Exit Sub
Else
'se incrementa el marcador de registros
'y se actualiza los controles con los
'datos del registro actual
'cmdPrevious.Enabled = True
Me.iPosicionActual = Me.iPosicionActual + 1
Me.CargarDatos()
End If
End Sub
Public Sub CargarDatos()
Try
If oDataSet Is Nothing Then
Call Page_Load(Me, New System.EventArgs)
Exit Sub
End If
If Me.oDataSet.Tables("W_Reparaciones").Rows.Count = 0 Then
' Me.imgUpdate.Enabled = False
' Me.imgDelete.Enabled = False
'DesactivarCampos
'VaciarCampos
Else
oDatarow = Me.oDataSet.Tables("W_Reparaciones").Rows(Me.iPosicionActual)
'Cargo los datos
Catch ex As Exception
Response.Write(ex.Message)
End Try
End Sub
he probado el load a poner un postback pero tampoco funciona
Gracias
os pongo el codigo por si me podeis hechar una mano
Dim oDataAdapter As SqlDataAdapter
Dim oDataSet As DataSet
Dim iPosicionActual As Integer
Dim oConexion As SqlConnection
Dim oDatarow As DataRow
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Me.txtIDDistribuidora.Text = 13
oConexion = New SqlConnection
oConexion.ConnectionString = "Data Source=xxxx;Initial Catalog=xxxx;Integrated Security=True"
Dim oComando As SqlCommand
Dim oDataReader As SqlDataReader
Me.oDataAdapter = New SqlDataAdapter("Select * from W_Reparaciones where IdDistribuidora=" & Me.txtIDDistribuidora.Text & " order by IdReparacion", oConexion)
Me.oDataSet = New DataSet
oConexion.Open()
Me.oDataAdapter.Fill(oDataSet, "W_Reparaciones")
oConexion.Close()
Me.iPosicionActual = 0
Me.CargarDatos()
End Sub
Protected Sub imgPrevious_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles imgPrevious.Click
If Me.iPosicionActual = 0 Then
Exit Sub
Else
Me.iPosicionActual = Me.iPosicionActual - 1
Me.CargarDatos()
End If
End Sub
Protected Sub imgNext_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles imgNext.Click
If (Me.iPosicionActual) = (Me.oDataSet.Tables("W_Reparaciones").Rows.Count - 1) Then
Exit Sub
Else
'se incrementa el marcador de registros
'y se actualiza los controles con los
'datos del registro actual
'cmdPrevious.Enabled = True
Me.iPosicionActual = Me.iPosicionActual + 1
Me.CargarDatos()
End If
End Sub
Public Sub CargarDatos()
Try
If oDataSet Is Nothing Then
Call Page_Load(Me, New System.EventArgs)
Exit Sub
End If
If Me.oDataSet.Tables("W_Reparaciones").Rows.Count = 0 Then
' Me.imgUpdate.Enabled = False
' Me.imgDelete.Enabled = False
'DesactivarCampos
'VaciarCampos
Else
oDatarow = Me.oDataSet.Tables("W_Reparaciones").Rows(Me.iPosicionActual)
'Cargo los datos
Catch ex As Exception
Response.Write(ex.Message)
End Try
End Sub
he probado el load a poner un postback pero tampoco funciona
Gracias
Valora esta pregunta


0