Fråga : Tillfoga data för att ta fram Listbox

Förmiddag I tar fram 2007 och har in en bilda med en lista att boxas. Jag har en query, som befolkar listboxen initialt, men önskar att tillfoga värderar till den i VBA som väl. Jag har försökt .additem, men den är inte funktionsduglig. Det uppehälleordstäv att argumentet inte är valfritt. Nedanför är min code.

lstcount = Me.LstGrants.ListCount
For i = (Me.LstGrants.ListCount + 1) ((Me.LstGrants.ListCount + 1) + året för
för 4) = året + grantdesc
för 1
' Me.LstGrants.AddItem med Me.LstGrants
Do
.AddItem
. Lista (I, 0) = grantdesc
. Lista (I, 1) = year
avslutar With
Next
 " klar "

Svar : Tillfoga data för att ta fram Listbox

Kanske detta
1:
2:
3:
4:
5:
6:

För I = (Me.LstRHFGrants.ListCount + 1) till ((Me.LstRHFGrants.ListCount + 1) + 4)
    år = år + 1
    Med Me.LstRHFGrants
      .AddItem (grantdesc & ”; ” & år)
    Avsluta med
Därefter
Andra lösningar  
 
programming4us programming4us