Dim ai As New AppointmentInfo("Test", "02/05/2009 12:00:00 PM", "02/05/2009 2:00:00 PM", Telerik.Web.UI.RecurrenceState.Occurrence)
ai.ProviderId = 1
Dim al As New List(Of AppointmentInfo)
al.Add(ai)
Dim rtProviders As New ResourceType("Providers")
Dim dtProviders As New Data.DataTable("Providers")
dtProviders.Columns.Add(
"ProviderId")
dtProviders.Columns.Add(
"ProviderName")
dtProviders.Rows.Add(
"1", "Edward McLaughlin")
dtProviders.Rows.Add(
"2", "Tom McDonald")
rtProviders.DataSource = dtProviders
rtProviders.ForeignKeyField =
"ProviderId"
rtProviders.KeyField =
"ProviderId"
rtProviders.TextField =
"ProviderName"
RadScheduler1.ResourceTypes.Add(rtProviders)
Dim rtRooms As New ResourceType("Rooms")
rtRooms.AllowMultipleValues =
False
Dim dt As New Data.DataTable("Rooms")
dt.Columns.Add(
"RoomId")
dt.Columns.Add(
"Name")
dt.Rows.Add(
"1", "Exam Room A")
rtRooms.DataSource = dt
rtRooms.KeyField =
"RoomId"
rtRooms.TextField =
"Name"
rtRooms.ForeignKeyField =
"RoomId"
RadScheduler1.ResourceTypes.Add(rtRooms)
RadScheduler1.TimelineView.GroupBy =
"Providers"
RadScheduler1.TimelineView.GroupingDirection = Telerik.Web.UI.GroupingDirection.Vertical
RadScheduler1.HoursPanelTimeFormat =
"hh:mm tt"
RadScheduler1.DataSource = al
RadScheduler1.DataBind()
Thanks!