EnsureVisible in ListView

[techgnome]

fafalone.... um... that may work... but I don't think that is what's needed...

pinguinito -- you need to set the selected item to the new item, then make the ITEM ensurevisible....
against my better judgement.... like this:

Set objItem = LV_Cliente.ListItems.Add(, , rs(0))
objItem.SubItems(1) = rs!name
objItem.SubItems(2) = rs!age
objItem.SubItems(3) = rs!address
objItem.EnsureVisible
objItem.Selected = True

-tg

[pinguinito]

Not working,

[pinguinito]

I upload the code to see if anyone can help

thank you very much

[pinguinito]

Public IdCliente
Dim i As Integer
Private Sub cmdSave_Click()

On Error GoTo ErrorSub

cnn.Execute "UPDATE cliente set name = '" & Trim(Text1(1)) & _
"', age = '" & Trim(Text1(2)) & _
"', address = '" & Trim(Text1(3)) & _
"' where id_cliente = " & IdCliente & ""

With Form1
.LV_Cliente.SelectedItem.EnsureVisible
For i = 1 To 3
.LV_Cliente.SelectedItem.SubItems(i) = Text1(i)
Next i
End With

DoEvents

Unload Me
Set Form2 = Nothing
Exit Sub
ErrorSub:
MsgBox Err.Description

End Sub