vb scorrere una combo

[amodio]

devo verificare se un codice risieda nell itemdata di una combo

lo so che è na stupidata
sicuramente faccio un errore stupido

pero sapete com'è oggi è venerdi ed io non ci sto di capoccia
se mi aiutate ve ne saro grato

[ladyBlu]

intanto Ben arrivato, visto che non ti sei ancora fatto vivo nella ot;
e poi non mi è chiaro che cosa stai chiedendo, quindi ti chiederei di spiegarmi meglio ed eventualmente di postare il codice che usi.

[amodio]

a parte il sonno

io ho un codice
beh devo solo verificare se nell'itemdata di una combo risiede quel codice scorrendo tutto l'itemdata


dai lo so che è facile (lo avro fatto centinaia di volte)
ma oggi priprio non ce la faccio)

[vonkranz]

Scusa ma non ti basta impostare la prop. Style del dropdown a 2 cosi' le uniche scelte possibili sono quelle inserite nella combo ?

...oppure non ho capito che cosa devi fare?

[amodio]

è semplice da questa combo

Source = "SELECT cod_causale,descrizione FROM causale order by descrizione"
rs.Open Source, conn
       
   Do While rs.EOF = False
  
        Me.CBB_Causale.AddItem rs("descrizione")
        Me.CBB_Causale.ItemData(CBB_Causale.NewIndex) = rs("cod_causale")
        
        rs.MoveNext
      
  Loop

dopo varie operazioni devo vedere se esiste il codice numero 7
tutto qua!!!!
oppure 8 sa com'è...
grazie

[darkblOOd]

e che ci vuole?

:gren:

Ricordami un pò di VB6:

ItemData fa parte di una collection? Se si, ci stai 2 sec a trovare la soluzine dopo questa imbeccata, se no ti crei un ciclo che parte dall'ultimo itemdata e decrementi fino al primo verificando il valore (e ci stai 4 sec)

[amodio]

come sei gentile
uffff abbondi di altruismo:quipy:







graxie

[darkblOOd]

seee buonanotte!

[ladyBlu]

Originariamente inviato da darkblOOd
seee buonanotte!

già già...

[vonkranz]

Originariamente inviato da amodio
è semplice da questa combo

Source = "SELECT cod_causale,descrizione FROM causale order by descrizione"
rs.Open Source, conn
       
   Do While rs.EOF = False
  
        Me.CBB_Causale.AddItem rs("descrizione")
        Me.CBB_Causale.ItemData(CBB_Causale.NewIndex) = rs("cod_causale")
        
        rs.MoveNext
      
  Loop

dopo varie operazioni devo vedere se esiste il codice numero 7
tutto qua!!!!
oppure 8 sa com'è...
grazie

...a parte il fatto che non ho capito il perche' carichi cosi' il combo anziche' collegarlo al recordset, perche' non te lo cerchi nel recordset?