Ver Mensaje Individual
  #2 (permalink)  
Antiguo 25/08/2011, 09:37
Avatar de lokoman
lokoman
 
Fecha de Ingreso: septiembre-2009
Mensajes: 502
Antigüedad: 14 años, 7 meses
Puntos: 47
Respuesta: Siguiente registro

Hola!
A ver si entendí... prueba esto:

Código vb:
Ver original
  1. 'DESPUES DE CARGAR EL COMBO
  2.  
  3. Private Sub cmdANTERIOR_Click()
  4.     Dim I As Integer
  5.    
  6.     I = cbo.ListIndex - 1
  7.    
  8.     If I >= 0 Then cbo.ListIndex = I
  9.  
  10. 'AQUI VA TU CODIGO DE CARGA DE DATOS CON EL TEXT QUE TIENE EL COMBO, O SEA,
  11. 'EL  "SELECT * FROM Personas WHERE Nombre = '" & Combo.text & "'"
  12. End Sub
  13.  
  14. Private Sub cmdSIGUIENTE_Click()
  15.     Dim I As Integer
  16.    
  17.     If cbo.ListIndex = -1 Then
  18.         I = 1
  19.     Else
  20.         I = cbo.ListIndex + 1
  21.     End If
  22.    
  23.     If I < cbo.ListCount Then cbo.ListIndex = I
  24.  
  25. 'AQUI VA TU CODIGO DE CARGA DE DATOS CON EL TEXT QUE TIENE EL COMBO, O SEA,
  26. 'EL  "SELECT * FROM Personas WHERE Nombre = '" & Combo.text & "'"
  27. End Sub