
Originariamente inviata da
oregon
E' quello che avevo scritto io ma ti avevo chiesto anche di mostrare il tuo codice ...
Scusami Oregon ho fatto un errore stupido sul codice.
codice errato
codice:
Private Sub cbmodifica_Click()
' modifica agenda
myidrec = ListView1.ListItems.Item(ListView1.SelectedItem.Index)
inserimento.txtora.Text = ListView1.ListItems(ListView1.SelectedItem.Index).ListSubItems(1).Text
inserimento.txtdata.Text = ListView1.ListItems(ListView1.SelectedItem.Index).ListSubItems(2).Text
inserimento.txtnumero.Text = ListView1.ListItems(ListView1.SelectedItem.Index).ListSubItems(3).Text
mod_age = True
inserimento.Show 1
End Sub
codice funzionante
codice:
Private Sub cbmodifica_Click()
' modifica agenda
myidrec = ListView1.ListItems.Item(ListView1.SelectedItem.Index)
miaora = ListView1.ListItems(ListView1.SelectedItem.Index).ListSubItems(1).Text
miadata = ListView1.ListItems(ListView1.SelectedItem.Index).ListSubItems(2).Text
mionumero = ListView1.ListItems(ListView1.SelectedItem.Index).ListSubItems(3).Text
mod_age = True
inserimento.Show 1
End Sub