or

|
Requirements |
|
| RadControls version |
|
| .NET version |
|
| Visual Studio version |
|
| programming language |
|
| browser support |
all browsers supported by RadControls |
| Private Sub uxRadScheduler_AppointmentDataBound(ByVal sender As Object, ByVal e As Telerik.Web.UI.SchedulerEventArgs) Handles uxRadScheduler.AppointmentDataBound |
| Dim dataRowView As System.Data.DataRowView = CType(e.Appointment.DataItem, System.Data.DataRowView) |
| If dataRowView.Item("LeaveID") IsNot System.DBNull.Value Then |
| e.Appointment.Attributes.Add("onclick", "javascript:ViewLeave('" & dataRowView.Item("LeaveID").ToString() & "');") |
| Else |
| e.Appointment.Attributes.Add("onclick", "javascript:ViewTask('" & dataRowView.Item("TaskID").ToString() & "');") |
| End If |
| End Sub |