Private Sub Form_Load()
Dim k as long
Dias = Split(d, ",")
Guardas = Split(g, ",")
' Cantidad de Registros de cada 'tabla' de días de la semana
Semana(0).Items = 2
Semana(1).Items = 0
Semana(2).Items = 0
Semana(3).Items = 3
Semana(4).Items = 3
Semana(5).Items = 2
Semana(6).Items = 2
' redimensionamos para que cada 'tabla' tenga el nº de regisros indicado.
For k = 0 To 6
If Semana(k).Items > 0 Then
ReDim Semana(k).Id_Guarda(0 To Semana(k).Items - 1)
End If
Next
' Ahora marcamos la relaciones
' Lunes
Semana(0).Id_Guarda(0) = 0 ' antonio
Semana(0).Id_Guarda(1) = 1 ' Juan
' Martes
' Miércoles
' Jueves
Semana(3).Id_Guarda(0) = 2 ' Luis
Semana(3).Id_Guarda(1) = 3 ' Valentín
Semana(3).Id_Guarda(2) = 4 ' Diego
' viernes
Semana(4).Id_Guarda(0) = 5 ' Rodrigo
' Sábado
Semana(5).Id_Guarda(0) = 6 ' Sebastián
Semana(5).Id_Guarda(1) = 7 ' Pedro
' Domingo
Semana(6).Id_Guarda(0) = 2 ' Luis"
Semana(6).Id_Guarda(1) = 8 ' Roberto
End Sub