Cambio para llenar los años sin usar la base de datos

Acumuladores/EntradasUsadosResumenRep.aspx.vb

@@ -9,6 +9,7 @@ Partial Class Acumuladores_RepEntradasUsados
 
     Private DiasSemana(7) As String
     Private Meses(12) As String
+    Private Cargado As Integer = 0
 
     Private Property DatosEntradasUsados() As DataTable
         Get
@@ -25,8 +26,6 @@ Partial Class Acumuladores_RepEntradasUsados
             txtFechaF.Text = Today
             CargarDatos()
             CargarCombos()
-
-
         End If
     End Sub
 
@@ -36,14 +35,18 @@ Partial Class Acumuladores_RepEntradasUsados
     End Sub
 
     Protected Sub CargarCombos()
-        Dim ObjAcum As New ClsAcumuladores
         Dim fecha As Date = Date.Now.AddMonths(-1)
-        ObjAcum.GetAñosVentas(UsuarioActual.CveEmpresa)
-        DdlAño.DataSource = ObjAcum.DtResultados
-        DdlAño.DataBind()
-        DdlAño.SelectedValue = fecha.Year.ToEntero
-        ObjAcum.Dispose()
+        Dim Años As New ListItem
+        Dim i As Integer
+        If Cargado = 0 Then
+            For i = Date.Now.Year.ToEntero To (fecha.Year.ToEntero - 5) Step -1
+                Años = New ListItem(i, i)
+                DdlAño.Items.Add(Años)
+            Next
+        End If
+        Cargado = 1
 
+        DdlAño.SelectedValue = fecha.Year.ToEntero
         DdlMes.SelectedValue = fecha.Month.ToEntero
     End Sub