<%@ Page Title="" Language="VB" MasterPageFile="~/AdminPanel/Admin.master" AutoEventWireup="false" CodeFile="pager_test.aspx.vb" Inherits="AdminPanel_franchise_pager_test" %><asp:Content ID="Content1" ContentPlaceHolderID="ContentPlaceHolder1" Runat="Server"> <telerik:RadAjaxManager ID="RadAjaxManager1" runat="server"> <AjaxSettings> <telerik:AjaxSetting AjaxControlID="RadGrid1"> <UpdatedControls> <telerik:AjaxUpdatedControl ControlID="RadGrid1"></telerik:AjaxUpdatedControl> </UpdatedControls> </telerik:AjaxSetting> <telerik:AjaxSetting AjaxControlID="RadGrid2"> <UpdatedControls> <telerik:AjaxUpdatedControl ControlID="RadGrid2"></telerik:AjaxUpdatedControl> </UpdatedControls> </telerik:AjaxSetting> </AjaxSettings> </telerik:RadAjaxManager> <br /> <hr /> <div style="border: 5px solid #eaf2fd; width: 95%;"> <telerik:RadGrid ID="RadGrid2" DataSourceID="SqlDataSource2" AllowPaging="True" PageSize="5" runat="server" GridLines="None" Width="100%" AllowSorting="True" CellSpacing="0"> <PagerStyle Mode="NextPrevAndNumeric" EnableSEOPaging="False"></PagerStyle> <HeaderStyle HorizontalAlign="Center"></HeaderStyle> <ItemStyle HorizontalAlign="Center"></ItemStyle> <AlternatingItemStyle HorizontalAlign="Center"></AlternatingItemStyle> <MasterTableView CommandItemDisplay="Top"> <CommandItemSettings ExportToPdfText="Export to PDF"></CommandItemSettings><RowIndicatorColumn FilterControlAltText="Filter RowIndicator column"></RowIndicatorColumn><ExpandCollapseColumn Visible="True" FilterControlAltText="Filter ExpandColumn column" Created="True"></ExpandCollapseColumn><EditFormSettings><EditColumn FilterControlAltText="Filter EditCommandColumn column"></EditColumn></EditFormSettings><PagerStyle PageSizeControlType="RadComboBox"></PagerStyle> <CommandItemTemplate> <asp:PlaceHolder ID="PlaceHolder1" runat="server"></asp:PlaceHolder> </CommandItemTemplate> </MasterTableView> <FilterMenu EnableImageSprites="False"></FilterMenu> </telerik:RadGrid> </div> <br /> <asp:SqlDataSource ID="SqlDataSource2" runat="server" ConnectionString="<%$ ConnectionStrings:SQL %>" SelectCommand="SELECT [a], [b], [c], [d], [e] FROM [franchises] WHERE ([xyz] LIKE @xyz)"> <SelectParameters> <asp:Parameter Name="xyz" Type="String" DefaultValue="%" /> </SelectParameters> </asp:SqlDataSource> </asp:Content>
Protected Sub RadGrid2_ItemCreated(ByVal sender As Object, ByVal e As GridItemEventArgs) Handles RadGrid2.ItemCreated
If TypeOf e.Item Is GridCommandItem Then
Dim commandItem As GridCommandItem = CType(e.Item, GridCommandItem)
Dim container As PlaceHolder = commandItem.FindControl("PlaceHolder1")
Dim i As Integer
For i = 65 To 65 + 25
Dim linkButton1 As New LinkButton
Dim lc As New LiteralControl(" ")
linkButton1.Text = "" + ChrW(i)
linkButton1.CommandName = "alpha"
linkButton1.CommandArgument = "" + ChrW(i)
container.Controls.Add(linkButton1)
container.Controls.Add(lc)
Next i
Dim lcLast As New LiteralControl(" ")
container.Controls.Add(lcLast)
Dim linkButtonAll As New LinkButton
linkButtonAll.Text = "All"
linkButtonAll.CommandName = "NoFilter"
container.Controls.Add(linkButtonAll)
End If
End Sub
Protected Sub RadGrid2_ItemCommand(ByVal source As Object, ByVal e As GridCommandEventArgs) Handles RadGrid2.ItemCommand
Dim value As String = Nothing
Select Case e.CommandName
Case ("alpha")
value = String.Format("{0}%", e.CommandArgument)
Exit Select
Case ("NoFilter")
value = "%"
Exit Select
End Select
SqlDataSource2.SelectParameters("xyz").DefaultValue = value
RadGrid2.Rebind()
End Sub
<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
