<telerik:RadGrid ID="grdMyGrid" runat="server" AutoGenerateColumns="false" OnNeedDataSource="grdNewEpidomaTheshs_NeedDataSource">
<MasterTableView EditMode="InPlace" CommandItemDisplay="Top"
CommandItemSettings-AddNewRecordText="Add new record">
<NoRecordsTemplate>No records available</NoRecordsTemplate>
<Columns> ... some columns ...</Columns>
</MasterTableView>
</telerik:RadGrid>Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init 'CODEGEN: This method call is required by the Web Form Designer 'Do not modify it using the code editor. InitializeComponent() defineGridStructure() End SubPrivate Sub defineGridStructure() RadGrid1.ID = "RadGrid1" RadGrid1.Width = Unit.Pixel(1500) RadGrid1.MasterTableView.EditMode = GridEditMode.InPlace RadGrid1.AllowPaging = True RadGrid1.PagerStyle.Mode = GridPagerMode.NextPrevAndNumeric RadGrid1.AutoGenerateColumns = False RadGrid1.ShowStatusBar = True RadGrid1.AllowSorting = True RadGrid1.AllowFilteringByColumn = True RadGrid1.Skin = "WebBlue" RadGrid1.ClientSettings.ClientEvents.OnGridCreated = "GetGridObject" RadGrid1.ClientSettings.Scrolling.FrozenColumnsCount = 2 RadGrid1.ClientSettings.AllowColumnsReorder = True RadGrid1.ClientSettings.ColumnsReorderMethod = GridClientSettings.GridColumnsReorderMethod.Swap RadGrid1.ClientSettings.Selecting.AllowRowSelect = True RadGrid1.ClientSettings.Resizing.AllowColumnResize = True RadGrid1.ClientSettings.Scrolling.AllowScroll = True RadGrid1.ClientSettings.Scrolling.UseStaticHeaders = True RadGrid1.ClientSettings.Scrolling.SaveScrollPosition = True RadGrid1.ClientSettings.Selecting.AllowRowSelect = True RadGrid1.ClientSettings.ClientEvents.OnRowSelected = "rowSelected" RadGrid1.MasterTableView.PageSize = 100 RadGrid1.MasterTableView.AllowMultiColumnSorting = True RadGrid1.MasterTableView.DataKeyNames = New String() {"VendorListID"} columnCreation("Geography", "Geography", RadGrid1) columnCreation("Circ Type", "CirculationTypeDescription", RadGrid1) columnCreation("Household", "HouseHold_Count", RadGrid1) columnCreation("Total Cov", "TotalCoverage", RadGrid1) columnCreation("Day", "Day", RadGrid1) columnCreation("Selected", "Selected", RadGrid1) columnCreation("Circ", "Circ", RadGrid1) columnCreation("Coverage", "Coverage", RadGrid1) Me.PlaceHolder1.Controls.Add(RadGrid1) End Sub Private Sub columnCreation(ByVal colName As String, ByVal fieldName As String, ByVal oRadGrid As RadGrid) If colName = "Circ" Then Dim numericColumn = New GridTemplateColumn numericColumn.ItemTemplate = New MyEditTemplate(fieldName) numericColumn.DataField = fieldName numericColumn.HeaderText = colName numericColumn.UniqueName = fieldName numericColumn.FilterControlWidth = Unit.Pixel(60) oRadGrid.MasterTableView.Columns.Add(numericColumn) End If End Sub Public Class MyEditTemplate Implements ITemplate Protected textBox As TextBox Private colname As String Public Sub New(ByVal cName As String) colname = cName End Sub Public Sub InstantiateIn(ByVal container As System.Web.UI.Control) Implements ITemplate.InstantiateIn textBox = New TextBox() textBox.ID = colname AddHandler textBox.DataBinding, _ AddressOf textBox_DataBinding container.Controls.Add(textBox) End Sub Sub textBox_DataBinding(ByVal sender As Object, ByVal e As EventArgs) Dim cTextBox As TextBox = DirectCast(sender, TextBox) Dim container As GridDataItem = DirectCast(cTextBox.NamingContainer, GridDataItem) cTextBox.Text = (DirectCast(container.DataItem, DataRowView))(colname).ToString() End Sub End ClassPublic Sub RadGrid1_ItemDataBound(sender As Object, e As Telerik.Web.UI.GridItemEventArgs) Handles RadGrid1.ItemDataBound If (TypeOf (e.Item) Is GridDataItem) Then Dim dataBoundItem As GridDataItem = e.Item Dim dataRow As DataRowView = dataBoundItem.DataItem Dim index As Integer = dataBoundItem.ItemIndex dataBoundItem("Geography").Text = dataBoundItem("Geography").Text.Trim End If End SubPublic Class MyTemplate Implements ITemplate Protected boolValue As CheckBox Private colname As String Public Sub New(ByVal cName As String) colname = cName End Sub Public Sub InstantiateIn(ByVal container As System.Web.UI.Control) Implements ITemplate.InstantiateIn boolValue = New CheckBox() boolValue.ID = colname AddHandler boolValue.DataBinding, _ AddressOf boolValue_DataBinding boolValue.Enabled = True container.Controls.Add(boolValue) End Sub Sub boolValue_DataBinding(ByVal sender As Object, ByVal e As EventArgs) Dim cBox As CheckBox = DirectCast(sender, CheckBox) Dim container As GridDataItem = DirectCast(cBox.NamingContainer, GridDataItem) If ((DirectCast(container.DataItem, DataRowView))(colname)) = 1 Or ((DirectCast(container.DataItem, DataRowView))(colname)) = True Then cBox.Checked = True Else cBox.Checked = False End If End Sub End ClassdataBoundItem("Selected").Attributes.Add("onClick", "javascript:return fnSelectDayForTelerik(" & index & "," & mode & "," & mintEventID & "," & circType & "," & day & "," & ddlCircSet.SelectedItem.Value & ",'" & mstrSessionID & "'," & Request("PARID") & ",'" & Trim(UCase(Request("TargetGeo"))) & "',0);") dataBoundItem("Forced").Attributes.Add("onClick", "javascript:return fnSelectDayForTelerik(" & index & "," & mode & "," & mintEventID & "," & circType & "," & day & "," & ddlCircSet.SelectedItem.Value & ",'" & mstrSessionID & "'," & Request("PARID") & ",'" & Trim(UCase(Request("TargetGeo"))) & "',1);") <telerik:RadListBox ID="lbOrgLevels" runat="server" DataSourceID="sqlGetOrgLevels" DataKeyField="OrgLevelID" CheckBoxes ="true" style="top: 0px; left: 0px; width: 459px" OnItemDataBound="lbOrgLevels_ItemDataBound" AllowAutomaticUpdates="True" AutoPostBack="True" Skin="Sitefinity" DataSortField="OrgLevelDescription" DataTextField="OrgLevelDescription" DataValueField="Active">
</telerik:RadListBox>
<UpdateParameters>
<asp:Parameter Direction="Input" Name="Active" Type="Boolean"></asp:Parameter>
<asp:Parameter Direction="Input" Name="OrgLevelID" Type="Int32"></asp:Parameter>
</UpdateParameters>
Protected Sub lbOrgLevels_ItemDataBound............
e.Item.Text = (DirectCast(e.Item.DataItem, DataRowView))("OrgLevelID").ToString().Trim() _
+ "- " + (DirectCast(e.Item.DataItem, DataRowView))("OrgLevelDescription").ToString().Trim()
e.Item.Value = (DirectCast(e.Item.DataItem, DataRowView))("Active").ToString()
e.Item.Checked = (DirectCast(e.Item.DataItem, DataRowView))("Active").ToString()
e.Item.DataBind()
End Sub

<telerik:RadPane ID="LeftTreePane" runat="server" Width="300" Scrolling="Y" CssClass="treePaneStyle" BackColor="#93C9C3"> <telerik:RadSplitter ID="LeftSplitter" runat="server" Orientation="Horizontal" OnClientLoad="ResizeTreeView" OnClientResized="ResizeTreeView"> <telerik:RadPane ID="SearchPane" runat="server" Scrolling="Y" Height="70"> <asp:Panel ID="EleSearchPanel" runat="server" CssClass="searchPanelStyle"> <asp:Label ID="searchLabel" runat="server" Text="Search:" Width="40px"></asp:Label> <telerik:RadTextBox ID="SearchText" runat="server"></telerik:RadTextBox> <telerik:RadButton ID="SearchBtn" runat="server" AutoPostBack="true" Text="Search" Width="40px" OnClientClicking="selectNode"></telerik:RadButton> </asp:Panel> </telerik:RadPane> <telerik:RadSplitBar ID="leftSplitBar" runat="server" CollapseMode="None"> </telerik:RadSplitBar> <telerik:RadPane ID="TreePane" runat="server" Scrolling="None"> <telerik:RadTreeView runat="server" ID="ElementTreeView" OnNodeExpand="ElementTreeView_NodeExpand" OnNodeClick="ElementTreeView_NodeClick" OnContextMenuItemClick="ElementTreeView_ContextMenuItemClick" CssClass="radtreeStyle"> <ContextMenus> <telerik:RadTreeViewContextMenu ID="ElementCM" runat="server" > <Items> </Items> </telerik:RadTreeViewContextMenu> <telerik:RadTreeViewContextMenu ID="COCM" runat="server"> <Items></Items> </telerik:RadTreeViewContextMenu> </ContextMenus> </telerik:RadTreeView> </telerik:RadPane> </telerik:RadSplitter></telerik:RadPane> function ResizeTreeView(splitter, args) { var pane = $find("<%= LeftTreePane.ClientID %>"); var width = pane.get_width(); var treepane = $find("<%= TreePane.ClientID %>"); var height = treepane.get_height(); var treeview = $find("<%= ElementTreeView.ClientID %>"); treeview.width = width + "px"; treeview.height = height + "px"; } function selectNode(sender, args) { var treeView = $find("<%= ElementTreeView.ClientID %>"); var searchTBox = $find("<%= SearchText.ClientID %>"); var searchtext = searchTBox._text; var node = treeView.findNodeByText(searchtext); if (node) { var menu = node.get_contextMenuID(); if (menu == 'COCM') { node.set_selected(true); //node.expand(); scrollToNode(treeView, node); args.set_cancel(true); } else { alert(searchtext + "' could not be found."); } } else { alert(searchtext + "' could not be found."); } }