or


Height must be non negative. Parameter name: value Description: An unhandled exception occurred during the execution of the current web request. Please review the stack trace for more information about the error and where it originated in the code. Exception Details: System.ArgumentOutOfRangeException: Height must be non negative. Parameter name: value Source Error: An unhandled exception was generated during the execution of the current web request. Information regarding the origin and location of the exception can be identified using the exception stack trace below. Stack Trace: [ArgumentOutOfRangeException: Height must be non negative. Parameter name: value] System.Web.UI.WebControls.Style.set_Height(Unit value) +8673920 System.Web.UI.WebControls.WebControl.set_Height(Unit value) +30 Telerik.Web.UI.AppointmentControl.CalculateSize() +376 Telerik.Web.UI.DayViewAppointmentControl.CalculateSize() +83 Telerik.Web.UI.Scheduler.Views.RowBuilder..ctor(IList`1 slotList, Int32 maxColumnWidth) +1121 Telerik.Web.UI.Scheduler.Views.Week.RendererBase.CreateViewRows(IList`1 slotLists) +290 Telerik.Web.UI.Scheduler.Views.Week.RendererBase.CreateInnerContentTable(Control container, IList`1 slotLists) +138 Telerik.Web.UI.Scheduler.Views.Week.Renderer.GetInnerContent() +245 Telerik.Web.UI.Scheduler.Views.Week.Renderer.GetContent() +127 Telerik.Web.UI.RadScheduler.CreateContent() +221 Telerik.Web.UI.RadScheduler.CreateChildControls(Boolean bindFromDataSource) +195 Telerik.Web.UI.RadScheduler.CreateChildControls() +34 System.Web.UI.Control.EnsureChildControls() +87 System.Web.UI.Control.PreRenderRecursiveInternal() +44 System.Web.UI.Control.PreRenderRecursiveInternal() +171 System.Web.UI.Control.PreRenderRecursiveInternal() +171 System.Web.UI.Control.PreRenderRecursiveInternal() +171 System.Web.UI.Control.PreRenderRecursiveInternal() +171 System.Web.UI.Page.ProcessRequestMain(Boolean includeStagesBeforeAsyncPoint, Boolean includeStagesAfterAsyncPoint) +842 <telerik:RadScheduler ID="rs_Planner" runat="server" Culture="Dutch (Netherlands)" DataKeyField="ID" DataStartField="datumtijdvan" DataEndField="datumtijdtot" DataSubjectField="TypeOmschrijving" EnableExactTimeRendering="true" HoursPanelTimeFormat="HHtt" LastDayOfWeek="Sunday" FirstDayOfWeek="Monday" OverflowBehavior="Expand" Width="100%"> <WeekView ColumnHeaderDateFormat="ddd, d MMM" HeaderDateFormat="d-MMM-yyyy" /> <Localization AdvancedAllDayEvent="All day" AdvancedCalendarCancel="Annuleren" AdvancedCalendarToday="Vandaag" HeaderDay="Dag" HeaderMonth="Maand" HeaderToday="Vandaag"></Localization> <ResourceStyles> <telerik:ResourceStyleMapping Type="TypeOmschrijving" Text="Ziek" ApplyCssClass="rsCategoryPink" /> <telerik:ResourceStyleMapping Type="TypeOmschrijving" Text="Verwijderd" ApplyCssClass="rsCategoryOrange" /> <telerik:ResourceStyleMapping Type="TypeOmschrijving" Text="Present" ApplyCssClass="rsCategoryGreen" /> <telerik:ResourceStyleMapping Type="TypeOmschrijving" Text="Absent" ApplyCssClass="rsCategoryRed" /> <telerik:ResourceStyleMapping Type="TypeOmschrijving" Text="Te laat" ApplyCssClass="rsCategoryYellow" /> <telerik:ResourceStyleMapping Type="TypeOmschrijving" Text="Regulier absent" ApplyCssClass="rsCategoryGrey" /> </ResourceStyles> <AdvancedForm DateFormat="d-M-yyyy" TimeFormat="H:mm" Modal="true"></AdvancedForm> </telerik:RadScheduler>Sub SetUpPlanningScheduler() ' set up views rs_Planner.SelectedView = SchedulerViewType.WeekView rs_Planner.MonthView.UserSelectable = False ' rs_Planner.WeekView.UserSelectable = True rs_Planner.TimelineView.UserSelectable = False rs_Planner.DayView.UserSelectable = False ' appearance rs_Planner.DayView.HeaderDateFormat = "dddd, dd MMMM yyyy" rs_Planner.ShowFooter = False rs_Planner.ShowAllDayRow = False rs_Planner.MinutesPerRow = 15 rs_Planner.HoursPanelTimeFormat = "HH:mm" rs_Planner.FirstDayOfWeek = System.DayOfWeek.Monday rs_Planner.LastDayOfWeek = System.DayOfWeek.Friday rs_Planner.RowHeight = New Unit(16, UnitType.Pixel) ' set up data source rs_Planner.DataKeyField = "ID" rs_Planner.DataStartField = "datumtijdvan" rs_Planner.DataEndField = "datumtijdtot" rs_Planner.DataSubjectField = "TypeOmschrijving" rs_Planner.DataDescriptionField = "Omschr" ' set up Resources rs_Planner.ResourceTypes.Clear() Dim rt As New ResourceType("TypeOmschrijving") rt.KeyField = "TypeOmschrijving" rt.ForeignKeyField = "TypeOmschrijving" rt.TextField = "TypeOmschrijving" rs_Planner.ResourceTypes.Add(rt) rs_Planner.Resources.Add(New Resource("TypeOmschrijving", "Ziek", "Ziek")) rs_Planner.Resources.Add(New Resource("TypeOmschrijving", "Present", "Present")) rs_Planner.Resources.Add(New Resource("TypeOmschrijving", "Verwijderd", "Verwijderd")) rs_Planner.Resources.Add(New Resource("TypeOmschrijving", "Absent", "Absent")) rs_Planner.Resources.Add(New Resource("TypeOmschrijving", "Regulier absent", "Regulier absent")) rs_Planner.Resources.Add(New Resource("TypeOmschrijving", "Te laat", "Te laat")) rs_Planner.AllowDelete = False rs_Planner.AllowEdit = False rs_Planner.AllowInsert = False rs_Planner.ReadOnly = True 'dissallows moving End SubTypeOmschrijving datumtijdvan datumtijdtot Te laat 2010-11-29 09:15:00.000 2010-11-29 09:24:00.000 Present 2010-11-29 09:24:00.000 2010-11-29 09:25:00.000 Verwijderd 2010-11-29 09:25:00.000 2010-11-29 10:00:00.000 Present 2010-11-29 10:25:00.000 2010-11-29 11:10:00.000 Present 2010-11-29 12:25:00.000 2010-11-29 13:55:00.000 Present 2010-11-29 14:10:00.000 2010-11-29 14:55:00.000 Present 2010-11-30 08:30:00.000 2010-11-30 09:15:00.000 Present 2010-11-30 09:15:00.000 2010-11-30 10:00:00.000 Present 2010-11-30 10:25:00.000 2010-11-30 11:46:00.000 Verwijderd 2010-11-30 11:46:00.000 2010-11-30 11:55:00.000 Present 2010-11-30 12:25:00.000 2010-11-30 13:55:00.000 Present 2010-11-30 14:10:00.000 2010-11-30 14:55:00.000 Present 2010-12-01 09:15:00.000 2010-12-01 10:00:00.000 Present 2010-12-01 10:25:00.000 2010-12-01 11:10:00.000 Present 2010-12-01 11:10:00.000 2010-12-01 11:55:00.000 Present 2010-12-01 12:25:00.000 2010-12-01 13:10:00.000 Present 2010-12-01 13:10:00.000 2010-12-01 14:55:00.000 Present 2010-12-02 08:30:00.000 2010-12-02 09:15:00.000 Present 2010-12-02 10:25:00.000 2010-12-02 11:55:00.000 Present 2010-12-02 13:10:00.000 2010-12-02 13:55:00.000 Present 2010-12-03 08:30:00.000 2010-12-03 13:10:00.000 Present 2010-12-06 09:15:00.000 2010-12-06 10:00:00.000 Present 2010-12-06 10:25:00.000 2010-12-06 11:10:00.000 Te laat 2010-12-06 12:25:00.000 2010-12-06 12:30:00.000 Present 2010-12-06 12:30:00.000 2010-12-06 13:55:00.000
Protected Sub rbFelAnmal_Click(sender As Object, e As EventArgs) Handles rbFelAnmal.Click For Each item As GridItem In RadGrid1.MasterTableView.Items Dim dataitem As GridDataItem = DirectCast(item, GridDataItem) If dataitem.Selected Then value = value & dataitem.GetDataKeyValue("DateOfBirth").ToString() & "<br>" Else End If Next lblCheck.Text = valueEnd Sub