Hola a todos
Tengo un listview con muchos clientes, y al hacer doble click sobre alguno de ellos abro otro form donde puedo actualizar dicho cliente
Ahora lo que necesito es luego de actualizar el cliente y cerrar el form, que quede marcado la linea que edite
Algo del Cod que uso
Form Principal
Código:
Private Sub Form_Load()
CargarListView_Cliente LV_Cliente, rs
End Sub
Private Sub Editar()
With form2
.IdRegistro_Cliente = LV_Cliente.SelectedItem.Text
.nombre.Text = LV_Cliente.SelectedItem.ListSubItems(1).Text
.edad.Text = LV_Cliente.SelectedItem.ListSubItems(2).Text
.Show vbModal
End With
End If
End Sub
Private Sub LV_Cliente_DblClick()
Editar
End Sub
Y en un modulo tengo para cargar el lisview lo siguiente
Código:
Public Sub CargarListView_Cliente(LV_Cliente As ListView, rs As ADODB.Recordset)
On Error GoTo ErrorSub
LV_Cliente.ListItems.Clear
If rs.RecordCount > 0 Then
While Not rs.EOF
Set objItem = LV_Cliente.ListItems.Add(, , rs(0))
objItem.SubItems(1) = rs!nombre
objItem.SubItems(2) = rs!edad
rs.MoveNext
Wend
End If
Exit Sub
ErrorSub:
If Err.Number = 94 Then Resume Next
End Sub
y cuando actualizo el segundo form hago:
Código:
Private sub cmdActualizar()
cnn.Execute "UPDATE cliente set nombre = '" & Trim(Text1(1)) & _
"', edad = '" & Trim(Text1(2)) & _
"' where id_cliente = " & IdRegistro_CLIENTE & ""
rs.Requery 1
Call CargarListView_Cliente(form1.LV_Cliente, rs)
DoEvents
Unload Me
End sub
Hasta aca perfecto, lo que no sabria es como pasarle al listview cuando actualizo para que cuando lo cargue me quede marcada la linea que edite
Creo que es con
EnsureVisible
Alguna idea