Sub fillDays()
Dim i As Integer
For i = 1 To 31
Me.drpDay.Items.Insert(i - 1, New ListItem(i, i))
Next
End Sub
Skal du feks fylle en dropdown fra (år) 1975 til 2000, gjør slik:
Sub fillYears()
Dim i, j As Integer
j = 1
For i = 1975 To 2000
Me.DropDownList1.Items.Insert(j - 1, New ListItem(i.ToString, i.ToString))
j = j + 1
Next
End Sub |