asked on
ASKER
Dim sValue As String = iMonth.ToString.PadLeft(2, CChar("0")) & iYear.ToString .
The .NET Framework is not specific to any one programming language; rather, it includes a library of functions that allows developers to rapidly build applications. Several supported languages include C#, VB.NET, C++ or ASP.NET.
TRUSTED BY
If Not Page.IsPostBack Then
Dim iMonth As Integer
For iYear As Integer = 2001 To 2008
For iMonth = 1 To 12
Dim sVal As String
Dim sDate As String
Select Case iMonth
Case 1
sVal = "01" & iYear.ToString
sDate = "JAN " & iYear.ToString
Case 2
sVal = "02" & iYear.ToString
sDate = "FEB " & iYear.ToString
Case 3
sVal = "03" & iYear.ToString
sDate = "MAR " & iYear.ToString
Case 4
sVal = "04" & iYear.ToString
sDate = "APR " & iYear.ToString
Case 5
sVal = "05" & iYear.ToString
sDate = "MAY " & iYear.ToString
Case 6
sVal = "06" & iYear.ToString
sDate = "JUN " & iYear.ToString
Case 7
sVal = "07" & iYear.ToString
sDate = "JUL " & iYear.ToString
Case 8
sVal = "08" & iYear.ToString
sDate = "AUG " & iYear.ToString
Case 9
sVal = "09" & iYear.ToString
sDate = "SEP " & iYear.ToString
Case 10
sVal = "10" & iYear.ToString
sDate = "OCT " & iYear.ToString
Case 11
sVal = "11" & iYear.ToString
sDate = "NOV " & iYear.ToString
Case 12
sVal = "12" & iYear.ToString
sDate = "DEC " & iYear.ToString
End Select
Dim li As ListItem = New ListItem(sDate, sVal)
Me.YourDDLName.Items.Add(l
Next
Next
End If
Me.YourDDLName.DataBind