| Imports System |
| Imports System.Collections.Generic |
| Imports System.Collections.Specialized |
| Imports System.Configuration.Provider |
| Imports System.IO |
| Imports System.Xml |
| Imports Telerik.Web.UI |
| Public Class MyDbSchedulerProvider |
| Inherits Telerik.Web.UI.SchedulerProviderBase |
| Dim _tasks As Dictionary(Of Integer, Resource) |
| Public Overrides Sub Delete(ByVal owner As Telerik.Web.UI.RadScheduler, ByVal appointmentToDelete As Telerik.Web.UI.Appointment) |
| Dim db As New hoursDataContext |
| Dim h = (From x In db.demo_hours Where x.id = appointmentToDelete.ID).First |
| db.demo_hours.DeleteOnSubmit(h) |
| db.SubmitChanges() |
| End Sub |
| Public Overrides Function GetAppointments(ByVal owner As Telerik.Web.UI.RadScheduler) As System.Collections.Generic.IEnumerable(Of Telerik.Web.UI.Appointment) |
| Dim db As New hoursDataContext |
| Dim appointments As New List(Of Appointment) |
| Dim hours = From x In db.demo_hours |
| For Each h In hours |
| Dim apt As New Appointment |
| apt.Subject = h.name |
| apt.ID = h.id |
| apt.Start = h.datestart |
| apt.End = h.enddate |
| appointments.Add(apt) |
| Next |
| Return appointments |
| End Function |
| Public Overloads Overrides Function GetResourcesByType(ByVal owner As RadScheduler, ByVal resourceType As String) As IEnumerable(Of Resource) |
| Select Case resourceType |
| Case "Task" |
| Return tasks.Values |
| Case Else |
| Throw New InvalidOperationException("Unknown resource type: " + resourceType) |
| End Select |
| End Function |
| Private ReadOnly Property tasks() As IDictionary(Of Integer, Resource) |
| Get |
| _tasks = New Dictionary(Of Integer, Resource)() |
| For Each student As Resource In Loadtasks() |
| _tasks.Add(DirectCast(student.Key, Integer), student) |
| Next |
| Return _tasks |
| End Get |
| End Property |
| Public Overrides Function GetResourceTypes(ByVal owner As Telerik.Web.UI.RadScheduler) As System.Collections.Generic.IEnumerable(Of Telerik.Web.UI.ResourceType) |
| Dim resourceTypes As ResourceType() = New ResourceType(2) {} |
| resourceTypes(0) = New ResourceType("Teacher", False) |
| resourceTypes(1) = New ResourceType("Student", True) |
| Return resourceTypes |
| End Function |
| Public Overrides Sub Insert(ByVal owner As Telerik.Web.UI.RadScheduler, ByVal appointmentToInsert As Telerik.Web.UI.Appointment) |
| Dim h As New demo_hour |
| Dim a As Appointment = appointmentToInsert |
| h.datestart = a.Start |
| h.enddate = a.End |
| h.name = a.Subject |
| Dim db As New hoursDataContext |
| db.demo_hours.InsertOnSubmit(h) |
| db.SubmitChanges() |
| End Sub |
| Public Overrides Sub Update(ByVal owner As Telerik.Web.UI.RadScheduler, ByVal appointmentToUpdate As Telerik.Web.UI.Appointment) |
| Dim db As New hoursDataContext |
| Dim a As Appointment = appointmentToUpdate |
| Dim h = (From x In db.demo_hours Where x.id = a.ID).First |
| h.name = a.Subject |
| h.datestart = a.Start |
| h.enddate = a.End |
| db.SubmitChanges() |
| End Sub |
| Private Function Loadtasks() As IEnumerable(Of Resource) |
| Dim resources As New List(Of Resource)() |
| Dim db As New hoursDataContext |
| Dim tasks = From x In db.Tasks |
| For Each T In tasks |
| Dim r As New Resource |
| r.Key = T.taskid |
| r.Type = "Task" |
| r.Text = T.name |
| resources.Add(r) |
| Next |
| Return resources |
| End Function |
| End Class |
| Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load |
| If Not IsPostBack Then |
| RadScheduler1.DataKeyField = "ID" |
| RadScheduler1.DataStartField = "Start" |
| RadScheduler1.DataEndField = "End" |
| RadScheduler1.DataSubjectField = "Subject" |
| RadScheduler1.DataRecurrenceField = "RecurrenceRule" |
| RadScheduler1.DataRecurrenceParentKeyField = "RecurrenceParentID" |
| End If |
| Dim s As New MyDbSchedulerProvider |
| RadScheduler1.DataSource = s |
| End Sub |
| Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load |
| If Not IsPostBack Then |
| RadScheduler1.DataKeyField = "ID" |
| RadScheduler1.DataStartField = "Start" |
| RadScheduler1.DataEndField = "End" |
| RadScheduler1.DataSubjectField = "Subject" |
| RadScheduler1.DataRecurrenceField = "RecurrenceRule" |
| RadScheduler1.DataRecurrenceParentKeyField = "RecurrenceParentID" |
| End If |
| Dim s As New MyDbSchedulerProvider |
| RadScheduler1.DataSource = s.GetAppointments(RadScheduler1) |
| End Sub |
| <telerik:RadGrid ID="RadGrid1" runat="server"> |
| <MasterTableView> |
| <Columns> |
| <telerik:GridBoundColumn DataField="Id" HeaderText="ID" DataType="System.Int32"/> |
| <telerik:GridBoundColumn DataField="LoginId" HeaderText="Login Name" DataType="System.Int32"/> |
| <telerik:GridBoundColumn DataField="ContactDetails.FullName" HeaderText="Contact Name" DataType="System.String"/> |
| </Columns> |
| </MasterTableView> |
| <ClientSettings> |
| <DataBinding Location="DataService.svc" CountPropertyName="UsernameSetCount"> |
| <DataService TableName="UsernameSet" /> |
| </DataBinding> |
| </ClientSettings> |
| </telerik:RadGrid> |
Hi ,
I have one content page . In that i have one grid. Grid has one datakeyname Indicator Id . What i want is on OnRowDblClick event of client settings i want to open Rad window & pass the Indicator Id as querystring of selected row to it .I know how to open radwindow by passing id using javascript function . but i cant write javascript function on my page because its a content page. how will i do this .below is my aspx page for radgrid. Please help me . Thanks in advance.
<asp:Content ID="Content1" ContentPlaceHolderID="ContentPlaceHolder1" runat="Server">
<rad:RadGrid ID="RadGrid1" runat="server" Width="500px" AutoGenerateColumns="false"
Skin="Outlook" AllowSorting="True" GridLines="Both" Height="300px" ShowFooter="false" BackColor="#FFFFFF" BorderStyle="none">
<MasterTableView DataKeyNames="IndicatorId">
<Columns>
<rad:GridBoundColumn HeaderText="IndicatorId" DataField="IndicatorId" Visible="false" UniqueName="IndicatorId">
<HeaderStyle Width="100px" HorizontalAlign="Center"/>
<ItemStyle Width="100px" HorizontalAlign="Center"/>
</rad:GridBoundColumn>
<rad:GridBoundColumn HeaderText="Gewijzigd door" DataField="UpdatedBy" UniqueName="UpdatedBy">
<HeaderStyle Width="250px" HorizontalAlign="Center"/>
</rad:GridBoundColumn>
</Columns>
<RowIndicatorColumn Visible="False">
<HeaderStyle Width="20px" />
</RowIndicatorColumn>
<ExpandCollapseColumn Resizable="False" Visible="False">
<HeaderStyle Width="20px" />
<ExpandCollapseColumn>
</MasterTableView>
<ClientSettings>
<Selecting AllowRowSelect="True" />
<Scrolling AllowScroll="True" UseStaticHeaders="True" />
<ClientEvents OnRowDblClick="showVersionDetails()" />
</ClientSettings>
</rad:RadGrid>
<radW:RadWindowManager ID="RadWindowManager1" runat="server" UseEmbeddedScripts="false"
VisibleStatusbar="false" SingleNonMinimizedWindow="true" Skin="Default2006" EnableViewState="true"
Modal="true">
<Windows>
<radW:RadWindow ID="VersionDetails" runat="server" UseEmbeddedScripts="false" Title="User Edit"
VisibleTitlebar="false" Height="1050px" Width="600px" Left="50px" Top="23px"
ReloadOnShow="false" Modal="true" />
</Windows>
</radW:RadWindowManager>
</div>
asp:Content>
Thanks,
Suvarna
I am using FormTemplate to edit my records from the grid. I have a RadComboBox in which I am trying to set the SelectedValue for the edit record. I am getting this error " Selection out of range"
Below is the code I am using
<telerik:RadComboBox ID="ddlFixtureZone" runat="server" class="rightcolumn" EmptyMessage="Select" AppendDataBoundItems="true"
EnableLoadOnDemand="true" EnableVirtualScrolling="true" Width="400px" ShowMoreResultsBox="true" SelectedValue='<%# (Container as GridItem).OwnerTableView.IsItemInserted ? "" : Eval("MyID") %>'>
<WebServiceSettings Path="~/Services/MyServices.svc" Method="MyMethos" /></telerik:RadComboBox>
Any help is appreciated.
Thanks