or


Private Sub GridView_RowFormatting(ByVal sender As Object, ByVal e As Telerik.WinControls.UI.RowFormattingEventArgs) Handles GridView.RowFormatting Dim dataRow As Telerik.WinControls.UI.GridRowElement = e.RowElement If dataRow IsNot Nothing Then Try If dataRow.RowInfo.Tag IsNot Nothing Then If Is_Check_Some_Condition(dataRow.RowInfo.Tag) Then dataRow.ResetValue(Telerik.WinControls.UI.LightVisualElement.ForeColorProperty, Telerik.WinControls.ValueResetFlags.Local) Else dataRow.ForeColor = Color.Blue End If End If Catch ex As Exception End Try End IfEnd Sub

Private Sub ButtonGroupLocation_Click(sender As System.Object, e As System.EventArgs) Handles ButtonGroupLocation.Click Grouped = True Dim AppointmentMapping As New AppointmentMappingInfo() Dim ResourceMapping As New ResourceMappingInfo() AppointmentMapping.Start = "Start" AppointmentMapping.End = "Stop" AppointmentMapping.Duration = "" AppointmentMapping.Summary = "Summary" AppointmentMapping.Description = "" AppointmentMapping.Location = "LocationID" AppointmentMapping.Visible = "" AppointmentMapping.AllDay = "" AppointmentMapping.AllowDelete = "" AppointmentMapping.AllowEdit = "" AppointmentMapping.UniqueId = "ID" AppointmentMapping.BackgroundId = "BackgroundID" AppointmentMapping.StatusId = "StatusID" AppointmentMapping.RecurrenceRule = "RecurrenceRule" AppointmentMapping.MasterEventId = "" AppointmentMapping.ResourceId = "LocationID" AppointmentMapping.RecurrenceId = "" AppointmentMapping.Resources = "" AppointmentMapping.Exceptions = "" AppointmentMapping.FindBySchedulerProperty("ResourceId").ConvertToDataSource = AddressOf ConvertResourceToDataSource AppointmentMapping.FindBySchedulerProperty("ResourceId").ConvertToScheduler = AddressOf ConvertResourceToScheduler ResourceMapping.Name = "Name" ResourceMapping.Id = "ID" SchedulerBindingDataSource1.ResourceProvider.Mapping = ResourceMapping SchedulerBindingDataSource1.ResourceProvider.DataSource = ExecuSuitePMSDataSet.ActLocations SchedulerBindingDataSource1.EventProvider.Mapping = AppointmentMapping SchedulerBindingDataSource1.EventProvider.DataSource = ExecuSuitePMSDataSet.ActActivitySchedule RadScheduler1.DataSource = Me.SchedulerBindingDataSource1 RadScheduler1.GroupType = GroupType.Resource RadScheduler1.ActiveView.ResourcesPerView = 10 End Sub