Open with Recordset : Hi, Appreciate your feedback...

Mon, 20 Jul 2009 12:49:40 +0000

Author: ampcom
Subject: 14473
Posted: 20 July 2009 at 12:49pm

Hi,

Appreciate your feedback and suggestions

Regards

Tony

Open with Recordset : To filter you can use the PrePopulate...

Mon, 20 Jul 2009 11:10:28 +0000

Author: SuperMario
Subject: 14473
Posted: 20 July 2009 at 11:10am

To filter you can use the PrePopulate event combined with something like CustomProperties as a filter.

Here is one way to filter events. It is a very basic sample using PrePopulate.

This sample assumes you have a custom property called "Name" for yourevents, and some global variable named strName that holds the name ofthe user you want to view. The sample below will see if the event has aproperty with "name", if it doesn't, then it checks to see if the nameis equal to strName, if it's not, it will hide it (this only hides theevent, not remove it from the data source).

You can use Prepopulate event to hide some events in the Calendar display.

Private Sub CalendarControl_PrePopulate(ByVal ViewGroup As XtremeCalendarControl.CalendarViewGroup, ByVal Events As XtremeCalendarControl.CalendarEvents)

    If Events.Count > 0 Then
        Dim i As Long
        For i = Events.Count - 1 To 0 Step -1
            If Not Events(i).CustomProperties("name") = "" Then
                If Not Events(i).CustomProperties("name") = strName Then
                    Events.Remove i
                End If
            End If
        Next
    End If
End Sub

Here is another version:

This assumesyou have some BOOL that specifies when filtering is enabled(bFilterMode). Also assumes your filter text is stored in a globalvariable (sFilterText)

The sample simply compares the Subject ofthe event to some text, if they match, then the event will bedisplayed, if they don't match, it is not displayed. This is onlyvisual, no data is removed from the database.

Obviously you can improve on the compare, the following sample assumes an exact match.

Private Sub CalendarControl_PrePopulate(ByVal ViewGroup AsXtremeCalendarControl.CalendarViewGroup, ByVal Events AsXtremeCalendarControl.CalendarEvents)

Dim pEvent As CalendarEvent
Dim x As Integer
x = 0

For Each pEvent In Events
  If bFilterMode Then
   If pEvent.Subject <> sFilterText Then
    Events.Remove x
   End If
   x = x + 1
  End If
Next

End Sub

Hope this helps

Open with Recordset : Has anyone got an example they...

Sun, 21 Jun 2009 16:47:40 +0000

Author: ampcom
Subject: 14473
Posted: 21 June 2009 at 4:47pm

Has anyone got an example they could share of modifying the Custom Provider (SQL) example to use an Access database.

Have tried tech support which was a waste of time - they just say see the example. Help or what!!

Open with Recordset : Hi, Can anyone give an example...

Mon, 08 Jun 2009 15:41:22 +0000

Author: ampcom
Subject: 14473
Posted: 08 June 2009 at 3:41pm

Hi,

Can anyone give an example of retrieving calendar data from access database using a recordset / filter? (I don't want the calendar to retrieve all records in the Events table).

I have searched through the forums and cannot find any suggestions.

Thanks in advance for any pointers

Codejock Developer Community : Open with Recordset

Open with Recordset : Hi, Appreciate your feedback...

Open with Recordset : To filter you can use the PrePopulate...

Open with Recordset : Has anyone got an example they...

Open with Recordset : Hi, Can anyone give an example...