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
If
End
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