VB combo additem

[gyonny]

ciao ragazzi

aggiungo un nominativo a una combobox con additem.
solo che il nominativo viene inserito alla fine di quelli già presenti, a me serve inserirlo al primo posto.

by e grazie per le risposte

gyonny

[micionimpossibl]

mi puoi dare il tuo codice?

[gyonny]

If Cinser > "" Then
Set RecTM3 = New ADODB.Recordset
RecTM3.Open "SELECT * FROM provincia;", DatDb1, adOpenStatic, adLockOptimistic
RecTM3.AddNew
RecTM3!Provincia = Cinser
RecTM3.UpdateBatch adAffectCurrent
Combo1(2).AddItem Cinser
End If
End If

'Cinser inserisce il nuovo nominativo nella combo alla fine di quelli gia letti dal database, mi servirebbe inserirlo per primo.

[micionimpossibl]

Originariamente inviato da gyonny
If Cinser > "" Then
Set RecTM3 = New ADODB.Recordset
RecTM3.Open "SELECT * FROM provincia;", DatDb1, adOpenStatic, adLockOptimistic
RecTM3.AddNew
RecTM3!Provincia = Cinser
RecTM3.UpdateBatch adAffectCurrent
Combo1(2).AddItem Cinser
End If
End If

'Cinser inserisce il nuovo nominativo nella combo alla fine di quelli gia letti dal database, mi servirebbe inserirlo per primo.

guarda ora come ora nn so come aiutarti!

[gyonny]

up

xe sei sempre in giro?

[xegallo]

Originariamente inviato da gyonny
up

xe sei sempre in giro?

sai che ci sono quasi sempre

se vuoi metterlo in cima basta che metti tutti gli item della combo in un array inserisci il nuovo elemento come ultimo dell'array e poi ricarichi tutto larray dall'ultimo al primo

[xegallo]

Originariamente inviato da xegallo
sai che ci sono quasi sempre

se vuoi metterlo in cima basta che metti tutti gli item della combo in un array inserisci il nuovo elemento come ultimo dell'array e poi ricarichi tutto larray dall'ultimo al primo

tanto visto che so che me lo chiederai
esempio

Option Explicit

Private Sub Command1_Click()
   aggiungi_item_x_primo "Nuovo elemento"
End Sub

Private Sub Form_Load()
Dim i As Integer
For i = 1 To 127
   Combo1.AddItem Chr(i)
Next

End Sub

Sub aggiungi_item_x_primo(item As String)
   Dim arrcmb() As String
   Dim i As Integer
   ReDim arrcmb(Combo1.ListCount) As String
   For i = 1 To Combo1.ListCount
      arrcmb(i) = Combo1.List(i)
   Next
   Combo1.Clear
   Combo1.AddItem item
   For i = 1 To UBound(arrcmb)
      Combo1.AddItem arrcmb(i)
   Next   
End Sub

[gyonny]

grazie xe

by

[chipdb]

Scusate non è più semplice fare

Combo1.AddItem i, 0 'dove 0 è il primo elemento della combo

:master: :master:

Ciao