Visualizzazione dei risultati da 1 a 10 su 10
  1. #1
    Utente di HTML.it L'avatar di Teddy
    Registrato dal
    Dec 2001
    Messaggi
    178

    [vb] Listbox - gestione

    Ciao Raga,
    sono al mio primo programma "serio" in VB.
    In uno dei form del prog.ho realizzato una specie di rubrica.
    In un angolo di questo form, una listbox (ho pensato di usare questo oggetto) vengono caricati i cognomi da un db Access tramite un ciclo.
    Ora vorrei fare in modo che nel evento listbox_click venisse caricaro nel form il record selezionato.
    Anche se non mi dite la sintassi esatta, potete darmi qualche dritta?
    Grazie
    Grazie e ciao a tutti

  2. #2
    Utente bannato
    Registrato dal
    Apr 2002
    Messaggi
    546
    nell'evento clicl della list ricavi il nome del nome cliccato che corrisponde a:
    a=list1.text
    se hai cliccato sul cognome ROSSI a è uguale a ROSSI, poi vai a fare la tua ricerca


    link
    homepage http://%77%77%77%2e%74%77%6f%72%6b%2e%69%74/
    forum http://%77%77%77%2e%74%77%6f%72%6b%2...um/default.asp

  3. #3
    Utente di HTML.it L'avatar di Teddy
    Registrato dal
    Dec 2001
    Messaggi
    178
    Il problema è che l'elemento della list contiene sia il cognome sia il nome, caricati dai relativi campi della tabella.
    Ora dovrei rilevare (non so come) il numero di record dell'elemento cliccato e da li caricare tutto il record.
    Grazie e ciao a tutti

  4. #4
    Utente di HTML.it L'avatar di Teddy
    Registrato dal
    Dec 2001
    Messaggi
    178
    Qualcuno sa rispondermi?
    Grazie!
    Grazie e ciao a tutti

  5. #5
    Utente bannato
    Registrato dal
    Apr 2002
    Messaggi
    546
    Private Sub List1_Click()
    b = 0
    For k = 0 To List1.ListCount
    If List1.List(k) = List1.Text Then b = k + 1: Stop 'vai al db ed estrapola il record con campo id uguale alla variabile b
    Stop
    Next k
    End Sub



    link
    homepage http://%77%77%77%2e%74%77%6f%72%6b%2e%69%74/
    forum http://%77%77%77%2e%74%77%6f%72%6b%2...um/default.asp

  6. #6
    Utente di HTML.it L'avatar di Gigi84
    Registrato dal
    May 2001
    Messaggi
    569
    Io faccio così:
    Ho un recordset ordinato secondo il campo che mostro nella list e la la list ordinata tramite la proprietà sort..

    codice:
    Private Sub List1_Click() 
    If recordset.recordcount <> 0 Then
        recordset.Absoluteposition = list1.listindex
    End if

  7. #7
    Utente di HTML.it L'avatar di Teddy
    Registrato dal
    Dec 2001
    Messaggi
    178
    adesso provo un po' ... vi farò sapere!
    Grazie ancora
    Grazie e ciao a tutti

  8. #8
    Utente di HTML.it L'avatar di Teddy
    Registrato dal
    Dec 2001
    Messaggi
    178
    Per Steno12:
    Ho provato il tuo codice, ma non so perchè non sempre funziona, a volte carica altri record, a volte non carica nessun record e i campi del form rimangono bianchi ...

    Per Gigi84:
    In effetti il tuo codice è molto semplice e veloce, solo che serve a caricare un record che ha lo stesso numero dell'index della listbox.
    Capita che un elemento della list con indice 2 sia l'equivalente del record numero 50 (questo capita in un DB che ha un ordine alfabetico casuale, mentre ricordo che la listbox viene caricare con la proprietà sorted=true) dunque il tuo codice in questo caso non può essere adatto.

    Come ho risolto il problema?
    Un amico mi ha suggerito di ordinare dalla A alla Z il DB prima di caricare la lista, così poi il tuo codice, caro Gigi, può andare alla grande!!!!!

    Grazie a tutti per i consigli!!!
    Bye
    Grazie e ciao a tutti

  9. #9
    Utente bannato
    Registrato dal
    Apr 2002
    Messaggi
    546
    Perchè la variabile b deve essere pubblica per tutte le routine

    comunque è bello sapere che hai risolto

  10. #10
    Utente di HTML.it L'avatar di Teddy
    Registrato dal
    Dec 2001
    Messaggi
    178
    Grazie e ciao a tutti

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.