[vb] mese/anno datemi un consiglio..

[dops]

mannaggia e come devo fare per essere + chiaro..
allora ho una combobox (menù a discesa o come vuoi chaimarla) in questa combo box devo visualizzare gli anni che partono dal 1990 fino al 2003 e quando arriviamo al 2004 devo visualizzare anche questo e così via 2005 2006 etc..
questo mi serve perchè quando sceglierò l'anno da questa combobox mi verranno visualizzati i dati contenuti nel database relatici a quell'anno.. cioè non sò + come spiegarmi.. spero ceh adesso sia chiaro

[Sky75]

TI ho risposto per mail.....dovrebbe essere tutto a posto ora no?

[dops]

no non mi è arrivata nessuna mail..

[Mabi]

If CLng(Year(Now)) = (CLng(Combo1.List(Combo1.ListCount - 1)) + 1)Then
  Combo1.AddItem CStr(Year(Now))
End If

[xegallo]

Private Sub Form_Load()
   Dim mesi(1 To 12) As String
   Dim anni() As String
   Dim i As Integer
   Dim iAnn As Integer
   mesi(1) = "Gennaio"
   mesi(2) = "febbraio"
   mesi(3) = "marzo"
   mesi(4) = "aprile"
   mesi(5) = "maggio"
   mesi(6) = "giugno"
   mesi(7) = "luglio"
   mesi(8) = "agosto"
   mesi(9) = "settembre"
   mesi(10) = "ottobre"
   mesi(11) = "novembre"
   mesi(12) = "dicembre"
   ReDim Preserve anni(Year(Date) - 1990) As String
   For i = LBound(anni) To UBound(anni)
      anni(i) = 1990 + i
   Next i
   For iAnn = LBound(anni) To UBound(anni)
      For i = LBound(mesi) To UBound(mesi)
         List1.AddItem mesi(i) & " " & anni(iAnn)
      Next i
   Next iAnn
End Sub

ora va bene?

[dops]

no mabi non và..
sky ma sei un grande.. adesso funziona alla perfezione.. senti e per mettere come predefinito da visualizzare nella combo l'anno corrente.. come dovrei fare.. cioè adesso se lancio il programma la combo non contiene nulla.. cioè nessuna item.. devo selezionarle per vederle
Ciao

[Sky75]

Controlla.....c'e'!!

[dops]

si il 2003 c'è ma non lo visualizzo subito.. cioè devo selezionarlo per visualizzarlo.. quando lancio il programma la combo è bianca, mentre io vorrei visualizzare di default l'anno corrente..

[Sky75]

Prima rispondevo al messaggio precedente...alla mail.
Per far visualizzare subito l'anno corrente fai cosi:
data.text = year(date())
Cioe'...gli fai apparire l'anno corrente.
Ciao!!

[dops]

mi dice che la proprietà text è in sola lettura