Ciao a tutti,
ho scritto questa procedura per visualizzare in una ListView i campi di una tabella ma, quando parte la sub del bottone per inserire un nuovo record nella tabella, e richiedo di visualizzare i campi nella listview, mi da errore.......
Mi potete aiutare???![]()
Grazie 1000!
Private Sub Command1_Click()
........
rs.Open sql
Do While Not rs.EOF
Set liS = ListView1.ListItems.Add(, rs(0) & "XXX", rs(0) & "")
liS.Tag = rs(0)
liS.ListSubItems.Add , , rs(1) & ""
liS.ListSubItems.Add , , rs(2) & ""
liS.ListSubItems.Add , , rs(3) & ""
liS.ListSubItems.Add , , rs(4) & ""
liS.ListSubItems.Add , , rs(5) & ""
liS.ListSubItems.Add , , rs(6) & ""
i = i + 1
rs.MoveNext
Loop