Tengo un problema con los arrays unidimensionales, quiero introducir las fechas que me devuelve un Data Set.
Cuando introduzco las fechas en el array, me dice que no se ha declarado el array.
Os dejo el código:
Saludos y gracias de antemano!!
'aqui declaro los array
Dim arrayfechasEntradas() As Date
Dim arrayfechasSalidas() As Date
'Creo una fila:
Dim miFila As Data.DataRow
miFila = miTabla.NewRow
Dim cont As Integer = 0
Dim contadorFechas As Integer = 0
While cont < ds.Tables.Count 'tamaño máximo del Ds
'añado todas las fechas de entrada y salida a los arrays
'fechasEntradas(cont) = '12/12/2001'
'fechasSalidas(cont) = '12/12/2001'
'prueba.Text = ds.Tables("TablaHabitacion").Rows(cont)("FechaEntr ada")
arrayfechasEntradas(cont) = (ds.Tables("TablaHabitacion").Rows(cont)("FechaEnt rada"))
arrayfechasSalidas(cont) = (ds.Tables("TablaHabitacion").Rows(cont)("FechaSal ida"))
'prueba.Text = fechasEntradas(1)
' funcion para que me devuelva cada una de las fechas entre una fecha de inicio y una fecha de final
Fechas(arrayfechasEntradas(cont), arrayfechasSalidas(cont))
While contadorFechas < fechasHabitacion.Length 'el tamaño máximo del array
'Le añado los datos a la fila:
miFila("NumeroCliente") = ds.Tables("TablaHabitacion").Rows(cont)("numClient e")
miFila("NumeroHabitacion") = ds.Tables("TablaHabitacion").Rows(cont)("numHabita cion")
miFila("TipoHabitacion") = ds.Tables("TablaHabitacion").Rows(cont)("Descripci on")
miFila("Importe") = "5" 'hay que rellenarlo con la consulta
miFila("Fecha") = fechasHabitacion(contadorFechas)
'Añado la fila a la tabla
miTabla.Rows.Add(miFila(0), miFila(1))
contadorFechas = contadorFechas + 1
End While
cont = cont + 1
End While
GVHabitacion.DataSource = miTabla 'relleno el GridView con los datos de la tabla
GVHabitacion.DataBind()
'declaracion de un array
Public fechasHabitacion() As Date
'Funcion que me devuelve todas las fechas:
Function Fechas(ByVal INI As Date, ByVal FIN As Date) As Date
Dim cont As Integer = 0
If INI < FIN Then
Fechas = INI
While Fechas <= FIN
Fechas = DateAdd("d", 1, Fechas)
fechasHabitacion(cont) = Fechas
'Fechas = DateAdd(DateInterval.Day, 1, Fechas)
prueba.Text = prueba.Text & Fechas
cont = cont + 1
End While
Else
MsgBox("error", MsgBoxStyle.Information)
End If
