_DCalendarControl Failed

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

   Hello Guys,     I am a newbie on this CalendarControl
I am trying to setup a multiple resource. Here is the issue.

  If CalendarControl.MultipleResources.Count > 1 Then
      Dim arRes As New CalendarResources
      arRes.RemoveAll
                For Index = 1 To CalendarControl.MultipleResources.Count - 1
                  Set oResource = CalendarControl.MultipleResources.Item(Index)
                  Dim staffID As String
                  staffID = oResource.ScheduleIDs(0)
                  hasEvent = PPmpModule.CheckEventExists(staffID, ViewDay.Date)
                  If (hasEvent) Then
                      arRes.Add CalendarControl.MultipleResources.Item(Index)
                  End If

                Next
                If arRes.Count > 0 Then
                 ViewDay.SetMultipleResources arRes
                Else
                   //so what i want to happen is that  i want to set the multipleresource to zero since i don't have an appointment. The problem right now it's throwing an exception when try to set

               ViewDay.setMultipleResource  to new instance or nothing
                End If
     End If
So it's throwing an exception _DCalendarControl Failed  on Calendar.Populate.

Hope someone could look on to this.

Sincerely yours,

Hhon

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
jhonmacaraig Members Profile Send Private Message Find Members Posts Add to Buddy List Newbie Joined: 22 August 2016 Status: Offline Points: 2	Post Options Post Reply Quote jhonmacaraig Report Post Thanks(0) Quote Reply Topic: _DCalendarControl Failed Posted: 22 August 2016 at 8:35pm
	Hello Guys, I am a newbie on this CalendarControl I am trying to setup a multiple resource. Here is the issue. If CalendarControl.MultipleResources.Count > 1 Then Dim arRes As New CalendarResources arRes.RemoveAll For Index = 1 To CalendarControl.MultipleResources.Count - 1 Set oResource = CalendarControl.MultipleResources.Item(Index) Dim staffID As String staffID = oResource.ScheduleIDs(0) hasEvent = PPmpModule.CheckEventExists(staffID, ViewDay.Date) If (hasEvent) Then arRes.Add CalendarControl.MultipleResources.Item(Index) End If Next If arRes.Count > 0 Then ViewDay.SetMultipleResources arRes Else //so what i want to happen is that i want to set the multipleresource to zero since i don't have an appointment. The problem right now it's throwing an exception when try to set ViewDay.setMultipleResource to new instance or nothing End If End If So it's throwing an exception _DCalendarControl Failed on Calendar.Populate. Hope someone could look on to this. Sincerely yours, Hhon