17/02/2006, 22:33
|
 | | | Fecha de Ingreso: diciembre-2001
Mensajes: 216
Antigüedad: 22 años, 4 meses Puntos: 0 | |
| aca tengo un codigo que uso yo para refrescar el listview tal vez te sirva...
Private Sub ActualizarLista(ByVal unTecnico As Tecnico)
Dim varAux As Integer
Me.lstLista.Items.Clear()
Dim oFila As DataRowCollection = Aca mando una instruccion para conectarme a la base de datos de acces y traigo los datos de la tabla()
For varAux = 0 To oFila.Count - 1
Me.lstLista.Items.Add(oFila.Item(varAux).Item("Nom bre"))
With Me.lstLista.Items.Item(varAux).SubItems
.Add(Format(oFila.Item(varAux).Item("Ficha"), "00000"))
.Add(CType(oFila.Item(varAux).Item("FechaIngreso") , String))
End With
Next varAux
If Me.lstLista.Items.Count > 0 Then
Me.lstLista.EnsureVisible(0) 'Asegura que la fila sea visible
Me.lstLista.Items.Item(0).Selected = True 'Selecciona la fila
End If
End Sub
__________________
"No importa lo que nos suceda sino cómo reaccionamos ante lo que nos sucede."
Presidente James E. Faust |