Multiple resource problem

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

   I have the code below which loads my resources ('Schedules') and Events/appointments from my Access DB wonderfully!

However, it appears to be 'shifted'. What I mean by that is the the same appointments are showing in the first two columns (i.e. resources) and then the appointments that are supposed to be in the second column is in the third and so on......

Here is code:

Public Sub LoadSchedule(dtNewDate As Date)

Dim arResources As New CalendarResources
    Dim pRes0 As New CalendarResource
    Dim pRes1 As New CalendarResource

    pRes0.SetDataProvider2 "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Data\Events.mdb", True

    If pRes0.DataProvider Is Nothing Then
        Debug.Assert False
        Exit Sub
    End If

    If Not pRes0.DataProvider.Open Then
        If Not pRes0.DataProvider.Create Then
            Debug.Assert False
            Exit Sub
        End If
    End If

    '// ** schedules
    Dim pSchedules As CalendarSchedules
    Set pSchedules = pRes0.DataProvider.Schedules

    If pSchedules Is Nothing Then
        Exit Sub
    End If

    '// ** resources

    pRes0.Name = pSchedules.Item(0).Name
    pRes0.ScheduleIDs.Add pSchedules.Item(0).Id
    arResources.Add pRes0

    pRes1.SetDataProvider pRes0.DataProvider, False

     Dim ldx As Integer
    For ldx = 1 To pSchedules.Count - 1 'changed Ubound(sarray)
        Set pRes1 = New CalendarResource
        pRes1.Name = pSchedules.Item(ldx).Name ' sArray(ldx)
        pRes1.ScheduleIDs.Add ldx
        ' set data provider from first resource
        pRes1.SetDataProvider pRes0.DataProvider, True
        arResources.Add pRes1
    Next

    CalendarControl.SetMultipleResources arResources
    CalendarControl.ActiveView.DayHeaderFormatLong = "mm/dd/yyyy"

    CalendarControl.Populate
    CalendarControl.DayView.ShowDays dtNewDate, dtNewDate

    End Sub