This is a migrated thread and some comments may be shown as answers.

UseStaticHeaders="True"

3 Answers 105 Views
Grid
This is a migrated thread and some comments may be shown as answers.
William
Top achievements
Rank 1
William asked on 07 Feb 2012, 05:21 AM
When I add UseStaticHeaders="True" to my page I lose my first three GridTemplateColumn columns the bound columns are fine but the others just disappear.  If I remove it then they show up again.

Thanks,
Bill


 

 

<%@ Control Language="VB" AutoEventWireup="false" CodeFile="Publications.ascx.vb" Inherits="Publications" %>
<%@ Register assembly="Telerik.Web.UI" namespace="Telerik.Web.UI" tagprefix="telerik" %>
 
<style type="text/css">
    .style1
    {
        width: 100%;
    }
     
     
   
    .GridItemDropIndicator_Default
 {  
    border-top:2px solid blue !important;  
 
 
</style>
 <telerik:RadCodeBlock ID="RadCodeBlock1" runat="server">
 
    <script type="text/javascript">
     
 
        //<![CDATA[
        function openWin(url) {
            var oWnd = $find("<%=RadWindow1.ClientID%>");
            var authorNames = document.getElementById('<%=HiddenField1.ClientID%>').value;
            oWnd.setUrl(url + "?AuthoringNames=" + authorNames);
            oWnd.show();
        }
        function openWin2(url) {
            var oWnd = $find("<%=RadWindow2.ClientID%>");
            var authorNames = document.getElementById('<%=HiddenField1.ClientID%>').value;
            oWnd.setUrl(url + "?AuthoringNames=" + authorNames + "&ListID=import");
            oWnd.show();
        }
        function OnClientClose(oWnd, args) {
            //get the transferred arguments
            var mgr = $find("<%= RadAjaxManager.GetCurrent(Page).ClientID %>").ajaxRequest("rebind");
        }
 
        function refreshGrid() {
            location.reload()
            var mgr = $find("<%= RadAjaxManager.GetCurrent(Page).ClientID %>").ajaxRequest("rebind");
 
        }
 
        function ShowInsertForm() {
            window.radopen("/portals/0/NewGrant.aspx?RecID=0", "UserListDialog");
            return false;
        }
 
 
 
 
 
        function onRowDropping(sender, args) {
 
            if (sender.get_id() == "<%=RadGrid1.ClientID %>") {
 
                var node = args.get_destinationHtmlElement();
 
                if (!isChildOf('<%=RadGrid1.ClientID %>', node) && !isChildOf('<%=RadGrid1.ClientID %>', node)) {
 
                    args.set_cancel(true);
 
                }
 
            }
 
        }
 
 
 
        function isChildOf(parentId, element) {
 
            while (element) {
 
                if (element.id && element.id.indexOf(parentId) > -1) {
 
                    return true;
 
                }
 
                element = element.parentNode;
 
            }
 
            return false;
 
        }
 
 
        function RowDblClick(sender, eventArgs) {
 
            var oWnd = $find("<%=RadWindow1.ClientID%>");
            var authorNames = document.getElementById('<%=HiddenField1.ClientID%>').value;
            oWnd.setUrl(url + "?AuthoringNames=" + authorNames);
            oWnd.show();
 
        }
 
 
        function clicked_chkIsSelected(chkbox, index) {
 
            var grid = $find("<%=RadGrid1.ClientID %>");
 
            var MasterTable = grid.get_masterTableView();
 
            var row = MasterTable.get_dataItems()[index];
 
            var chkMost = chkbox;
 
            var chkMost = row.findElement("IsMostSelected");
 
            chkMost.checked = false;
 
        }
 
 
        function clicked_chkIsMostSelected(chkbox, index) {
            alert(index);
            var grid = $find("<%=RadGrid1.ClientID %>");
 
            var MasterTable = grid.get_masterTableView();
 
            var row = MasterTable.get_dataItems()[index];
 
            var chkSelected = chkbox;
 
            var chkSelected = row.findElement("IsSelected");
 
 
            chkSelected.checked = false;
 
 
 
        }
    </script>
   </telerik:RadCodeBlock
 
  <telerik:RadAjaxManagerProxy ID="RadAjaxManagerProxy1" runat="server">
 <AjaxSettings>
        <telerik:AjaxSetting AjaxControlID="HyperLink1" >
           <UpdatedControls>
                    <telerik:AjaxUpdatedControl ControlID="RadGrid1" LoadingPanelID="RadAjaxLoadingPanel1"  />
                </UpdatedControls>
        </telerik:AjaxSetting>
    </AjaxSettings>
     
</telerik:RadAjaxManagerProxy>
    
<telerik:RadWindowManager ID="RadWindowManager1" ShowContentDuringLoad="false" VisibleStatusbar="false" Modal="True"
        runat="server" EnableShadow="true">
        <Windows>
            <telerik:RadWindow ID="RadWindow1" runat="server"  Modal="true" Width="750" Height="600" OnClientClose="OnClientClose" Behaviors="Close,Move"
              ReloadOnShow="true"  >
            </telerik:RadWindow>
               <telerik:RadWindow ID="RadWindow2" runat="server"  Modal="true" Width="550" Height="750" OnClientClose="OnClientClose" Behaviors="Close,Move"
              ReloadOnShow="true"  >
            </telerik:RadWindow>
            </Windows>
    </telerik:RadWindowManager>
 
  
 
    
<telerik:RadAjaxLoadingPanel ID="RadAjaxLoadingPanel1" runat="server"  MinDisplayTime = "1000"
    Skin="Default" />
    
 
<p>
    </p>
 
<table class="style1">
    <tr>
        <td>
            <asp:Literal ID="LiteralHeader" runat="server"></asp:Literal>
        </td>
    </tr>
    <tr>
        <td>
            <asp:HiddenField ID="HiddenField1" runat="server" />
        </td>
    </tr>
    <tr>
        <td>
             </td>
    </tr>
    <tr>
        <td>
             </td>
    </tr>
    <tr>
        <td>
               <telerik:RadGrid ID="RadGrid1" runat="server" Width="100%" Height="675px" OnItemCommand="RadGrid1_ItemCommand"  
                         ShowGroupPanel="False" LoadingPanelID="RadAjaxLoadingPanel1" OnRowDrop="RadGrid1_RowDrop" AllowSorting="true"
 
            GridLines="None" AutoGenerateColumns = "false"
            Style="border: 1; outline:none;" BorderStyle="Solid"
                BorderWidth="1px">
                    <MasterTableView  AllowMultiColumnSorting= "false" DataKeyNames="RecID" AutoGenerateColumns="false" CommandItemDisplay="Top">
                                          
                              <Columns>                                 
                                      
                        <telerik:GridTemplateColumn >
                                                       <ItemTemplate>
                                <asp:HyperLink ID="HyperLink1" runat="server" Width="15px">Edit</asp:HyperLink>
                            </ItemTemplate>
                            </telerik:GridTemplateColumn>
 
                             
 
                           <telerik:GridTemplateColumn UniqueName="MostTemplateColumn" Groupable ="false" ItemStyle-HorizontalAlign = "Center"   HeaderText="Most</br>Relevant"  HeaderStyle-HorizontalAlign = "Center" >
                              <ItemTemplate>
                                <asp:CheckBox id="IsMostSelected"   OnCheckedChanged="CheckedChanged"  AutoPostBack="True" runat="server" Width="100px" ></asp:CheckBox>
                            </ItemTemplate>
 
<HeaderStyle HorizontalAlign="Center"></HeaderStyle>
 
<ItemStyle HorizontalAlign="Center"></ItemStyle>
                        </telerik:GridTemplateColumn>
 
                         <telerik:GridTemplateColumn UniqueName="CheckBoxTemplateColumn" Groupable ="false" ItemStyle-HorizontalAlign = "Center"   HeaderText="Additional</br>Recent"  HeaderStyle-HorizontalAlign = "Center">
                              <ItemTemplate>
                                <asp:CheckBox id="IsSelected"  OnCheckedChanged="CheckedChanged"  AutoPostBack="True" runat="server" Width="25px" ></asp:CheckBox>
                            </ItemTemplate>
 
<HeaderStyle HorizontalAlign="Center"></HeaderStyle>
 
<ItemStyle HorizontalAlign="Center"></ItemStyle>
                        </telerik:GridTemplateColumn>
 
                    <telerik:GridBoundColumn UniqueName="RecID" SortExpression="RecID" HeaderText="RecID" Visible="false"
                        DataField="RecID" ItemStyle-HorizontalAlign = "Center" HeaderStyle-HorizontalAlign = "Center" Groupable="False">
                        <HeaderStyle Width="5%"></HeaderStyle><ItemStyle HorizontalAlign="Center"></ItemStyle>
                    </telerik:GridBoundColumn>
 
                     <telerik:GridBoundColumn UniqueName="SortOrder" SortExpression="SortOrder" HeaderText="SortOrder" Visible="false"
                        DataField="SortOrder" ItemStyle-HorizontalAlign = "Center" HeaderStyle-HorizontalAlign = "Center" Groupable="False">
                        <HeaderStyle Width="3%"></HeaderStyle><ItemStyle HorizontalAlign="Center"></ItemStyle>
                    </telerik:GridBoundColumn>
 
 
                    <telerik:GridBoundColumn UniqueName="MemberID" SortExpression="MemberID" HeaderText="MemberID" Visible="false"
                        DataField="MemberID" ItemStyle-HorizontalAlign = "Center" HeaderStyle-HorizontalAlign = "Center" Groupable="False">
                        <HeaderStyle Width="3%"></HeaderStyle><ItemStyle HorizontalAlign= "Left"></ItemStyle>
                    </telerik:GridBoundColumn>
 
 
                     <telerik:GridBoundColumn UniqueName="DateAdded" SortExpression="DateAdded" HeaderText="Date</br>Added" Visible="true" DataFormatString="{0:d}</br>{0:T}"
                        DataField="DateAdded" ItemStyle-HorizontalAlign = "Center"  HeaderStyle-HorizontalAlign = "Center" Groupable="False">
                        <HeaderStyle Width="10%"></HeaderStyle><ItemStyle HorizontalAlign="Center"></ItemStyle>
                    </telerik:GridBoundColumn>
 
                      <telerik:GridBoundColumn UniqueName="DateModified" SortExpression="DateModified" HeaderText="Date</br>Modified" Visible="true" DataFormatString="{0:d}</br>{0:T}"
                        DataField="DateModified" ItemStyle-HorizontalAlign = "Center"  HeaderStyle-HorizontalAlign = "Center" Groupable="False">
                        <HeaderStyle Width="15%"></HeaderStyle><ItemStyle HorizontalAlign="Center"></ItemStyle>
                    </telerik:GridBoundColumn>
 
                       <telerik:GridBoundColumn UniqueName="PMID" SortExpression="PMID" HeaderText="PMID" Visible="true"
                        DataField="PMID" ItemStyle-HorizontalAlign = "Center"  HeaderStyle-HorizontalAlign = "Center" Groupable="False">
                        <HeaderStyle Width="10%"></HeaderStyle><ItemStyle HorizontalAlign="Center"></ItemStyle>
                    </telerik:GridBoundColumn>
 
                      <telerik:GridBoundColumn UniqueName="Year" SortExpression="Year" HeaderText="Year" Visible="true"
                        DataField="Year" ItemStyle-HorizontalAlign = "Center"  HeaderStyle-HorizontalAlign = "Center" Groupable="False">
                        <HeaderStyle Width="10%"></HeaderStyle><ItemStyle HorizontalAlign="Center"></ItemStyle>
                    </telerik:GridBoundColumn>
 
                     <telerik:GridBoundColumn UniqueName="Summary" SortExpression="Summary" HeaderText="Publication Summary" Visible="true" AllowSorting="false"
                        DataField="Summary" ItemStyle-HorizontalAlign = "Left" HeaderStyle-HorizontalAlign = "Center" Groupable="False">
                        <HeaderStyle Width="65%"></HeaderStyle><ItemStyle HorizontalAlign="Left"></ItemStyle>
                    </telerik:GridBoundColumn>
 
 
                    
 
            
                </Columns>
 
             <CommandItemTemplate>
                                 <table width="100%">
                             <tr class="customFont">
                           
                            <td align="left">
                             <asp:LinkButton ID="LinkButton2" runat="server" OnClientClick="openWin('/portals/0/NewPub.aspx'); return false;" >
                                <img style="border:0px;vertical-align:middle;" alt="" src="/portals/0/Images/add-icon.png" />Add new record</asp:LinkButton>                              
                                   
                                <asp:LinkButton ID="LinkButton1" runat="server" OnClientClick="openWin2('/portals/0/NewPubImport.aspx'); return false;" >
                                <img style="border:0px;vertical-align:middle;" alt="" src="/portals/0/Images/add-icon.png" />Import List</asp:LinkButton>                              
                                
                                <td align="left">
                                
                                    <asp:CheckBoxList ID="CheckBoxList1" runat="server" RepeatDirection="Horizontal" RepeatColumns="0" AutoPostBack="true"  OnSelectedIndexChanged="CheckBoxList_IndexChanged" CellSpacing="5">
                                    </asp:CheckBoxList>
                                </td>
                                
                           
                            <td align="right">
                                <asp:LinkButton ID="LinkButton4" runat="server" OnClientClick="refreshGrid(); return false;" >
                                <img style="border:0px;vertical-align:middle;" alt="" src="/portals/0/Images/Refresh.png" /> Refresh</asp:LinkButton>
                                    
                            </td>
                        </tr>
           
             </table>
                </CommandItemTemplate>
 
            </MasterTableView>
 
                <ClientSettings AllowRowsDragDrop="False">
                    <Selecting AllowRowSelect="True" EnableDragToSelectRows="False"/>
                      <Scrolling AllowScroll="True" SaveScrollPosition="True" ScrollHeight="700px"></Scrolling>
              
              </ClientSettings>
 
          
        </telerik:RadGrid>
        </td>
    </tr>
    <tr>
        <td>
             </td>
    </tr>
    <tr>
        <td>
             </td>
    </tr>
</table>

 

Code behind

 

Imports System.Data
Imports Telerik.Web.UI
Imports System.Data.SqlClient
Imports System.IO
 
Partial Class Publications
    Inherits System.Web.UI.UserControl
 
    Private dt As DataTable = New DataTable("Members")
    Private userInfo As DotNetNuke.Entities.Users.UserInfo = DotNetNuke.Entities.Users.UserController.GetCurrentUserInfo()
    Private ConnectionString As String = ConfigurationManager.AppSettings("SiteSqlServer")
    Private MemberID As Integer
    Private cbIndex As Integer
    Private AuthoringNames As String
 
 
    Protected Sub Load_Data()
 
        Dim myConnection As SqlConnection = Nothing
        Dim myReader As SqlDataReader = Nothing
        Dim sql As SqlCommand = Nothing
        Dim dt As DataTable
 
        myConnection = New SqlConnection(ConnectionString)
 
        sql = New SqlCommand("bio_SelectPublicationRecords", myConnection)
        sql.CommandType = CommandType.StoredProcedure
        sql.Parameters.AddWithValue("@MemberID", CInt(MemberID))
        sql.Parameters.AddWithValue("@Index", CInt(cbIndex))
        myConnection.Open()
        myReader = sql.ExecuteReader
        dt = New System.Data.DataTable
        dt.Clear()
        If Not myReader Is Nothing Then
            dt.Load(myReader, System.Data.LoadOption.OverwriteChanges)
            RadGrid1.DataSource = dt
        End If
 
 
        myReader.Read()
        If myReader.HasRows Then
 
            LiteralHeader.Text = myReader("LastName").ToString + "<br><b>" + myReader("OrganizationName").ToString + "</b>"
            AuthoringNames = myReader("AuthoringNames").ToString
            HiddenField1.Value = AuthoringNames
         
        End If
 
 
 
        myReader.Close()
        myConnection.Close()
 
        '  RadGrid1.ClientSettings.Scrolling.UseStaticHeaders = "True"
 
 
    End Sub
 
    Protected Sub RadGrid1_ItemCreated(ByVal sender As Object, ByVal e As Telerik.Web.UI.GridItemEventArgs) Handles RadGrid1.ItemCreated
       
        If TypeOf e.Item Is GridDataItem Then
            Dim item As GridDataItem = CType(e.Item, GridDataItem)
            Dim editLink As HyperLink = CType(e.Item.FindControl("HyperLink1"), HyperLink)
            editLink.Attributes("href") = "#"
            editLink.Attributes("onclick") = "return openWin('/portals/0/NewPub.aspx?RecID=" + item.GetDataKeyValue("RecID").ToString() + "&AuthoringNames=" + AuthoringNames + "'); return false;"
 
            Dim chkIsSelected As CheckBox = CType(item.FindControl("IsSelected"), CheckBox)
            Dim chkIsMostSelected As CheckBox = CType(item.FindControl("IsMostSelected"), CheckBox)
 
            chkIsSelected.Attributes.Add("onclick", "clicked_chkIsSelected(this ,'" & item.ItemIndex.ToString & "')")
            chkIsMostSelected.Attributes.Add("onclick", "clicked_chkIsMostSelected(this,'" + item.ItemIndex.ToString + "')")
        
 
        ElseIf TypeOf e.Item Is GridCommandItem Then
            Dim cb As CheckBoxList = CType(e.Item.FindControl("CheckBoxList1"), CheckBoxList)
            Dim cbitem As New ListItem("Show Affiliation")
            cb.Items.Add(cbitem)
 
 
 
            cbitem = New ListItem("Show Abstract")
            cb.Items.Add(cbitem)
            If cbIndex = 3 Then
                cb.Items(0).Selected = True
                cb.Items(1).Selected = True
 
            ElseIf cbIndex = 0 Then
                cb.Items(0).Selected = False
                cb.Items(1).Selected = False
 
            ElseIf cbIndex = 1 Then
                cb.Items(0).Selected = True
                cb.Items(1).Selected = False
            ElseIf cbIndex = 2 Then
                cb.Items(0).Selected = False
                cb.Items(1).Selected = True
            End If
        End If
 
    End Sub
 
    Protected Sub RadGrid1_NeedDataSource(ByVal source As Object, ByVal e As Telerik.Web.UI.GridNeedDataSourceEventArgs) Handles RadGrid1.NeedDataSource
        Load_Data()
    End Sub
 
    Protected Sub Page_Init(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Init
        If DotNetNuke.Framework.AJAX.IsInstalled Then
            DotNetNuke.Framework.AJAX.RegisterScriptManager()
        End If
    End Sub
    Protected Sub CheckedChanged(ByVal sender As Object, ByVal e As EventArgs)
 
        Try
 
 
            Dim chk As CheckBox = TryCast(sender, CheckBox)
 
            If chk.Checked = True Then
                Dim Item As GridDataItem = DirectCast(chk.NamingContainer, GridDataItem)
                Dim RecID As Integer = CInt(Item.GetDataKeyValue("RecID"))
                If chk.ID = "IsSelected" Then
                    Update_IsSelected(RecID, chk.Checked, False)
                    For Each dataItem As GridDataItem In RadGrid1.MasterTableView.Items
                        If CInt(RecID) = CInt(dataItem.GetDataKeyValue("RecID")) Then
                            CType(dataItem.FindControl("IsMostSelected"), CheckBox).Checked = False
                            dataItem.Selected = False
                        End If
                    Next
 
 
                ElseIf chk.ID = "IsMostSelected" Then
                    Update_IsSelected(RecID, False, chk.Checked)
                    For Each dataItem As GridDataItem In RadGrid1.MasterTableView.Items
                        If CInt(RecID) = CInt(dataItem.GetDataKeyValue("RecID")) Then
                            CType(dataItem.FindControl("IsSelected"), CheckBox).Checked = False
                            dataItem.Selected = False
                        End If
                    Next
 
 
                End If
 
            End If
 
          
        Catch ex As Exception
            Dim StreamWriter1 As System.IO.StreamWriter = New System.IO.StreamWriter(Server.MapPath(Path.Combine("Files", "_errortmpName.xml")), True)
            StreamWriter1.WriteLine("Grants ToggleRowSelection")
            StreamWriter1.WriteLine(ex.Message)
            StreamWriter1.Close()
        End Try
 
    End Sub
    Protected Sub Update_IsSelected(ByVal RecID As Integer, ByVal IsSelected As Boolean, IsMostSelected As Boolean)
        Try
            userInfo = DotNetNuke.Entities.Users.UserController.GetCurrentUserInfo()
            Dim myConnection As SqlConnection = Nothing
            Dim myReader As SqlDataReader = Nothing
            Dim sql As SqlCommand = Nothing
 
            myConnection = New SqlConnection(ConnectionString)
 
            sql = New SqlCommand("bio_IsSelectedPublication", myConnection)
            sql.CommandType = CommandType.StoredProcedure
            sql.Parameters.AddWithValue("@RecID", RecID)
            sql.Parameters.AddWithValue("@MemberID", MemberID)
            sql.Parameters.AddWithValue("@IsSelected", IsSelected)
            sql.Parameters.AddWithValue("@IsMostSelected", IsMostSelected)
 
 
            myConnection.Open()
            sql.ExecuteNonQuery()
            myConnection.Close()
 
        Catch ex As Exception
 
          
        Finally
 
 
        End Try
 
    End Sub
 
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not Page.IsPostBack Then
            cbIndex = 0
 
        End If
        If Not DotNetNuke.Services.Personalization.Personalization.GetProfile(userInfo.PortalID, "MemberID") Is Nothing Then
            MemberID = CInt(CType(DotNetNuke.Services.Personalization.Personalization.GetProfile(userInfo.PortalID, "MemberID"), String))
        End If
 
        Dim manager As RadAjaxManager = RadAjaxManager.GetCurrent(Page)
        If manager Is Nothing Then
            manager = New RadAjaxManager()
            manager.ID = "RadAjaxManager1"
            Me.Controls.Add(manager)
            Me.Page.Items.Add(GetType(RadAjaxManager), manager)
            manager.ClientEvents.OnRequestStart = "onRequestStart"
            manager.ClientEvents.OnResponseEnd = "onResponseEnd"
            RemoveHandler manager.AjaxRequest, AddressOf manager_AjaxRequest
            AddHandler manager.AjaxRequest, AddressOf manager_AjaxRequest
            manager.AjaxSettings.AddAjaxSetting(manager, RadGrid1)
        End If
 
 
    End Sub
    Protected Sub manager_AjaxRequest(ByVal sender As Object, ByVal e As Telerik.Web.UI.AjaxRequestEventArgs)
        If e.Argument = "rebind" Then
 
            RadGrid1.MasterTableView.SortExpressions.Clear()
            RadGrid1.MasterTableView.GroupByExpressions.Clear()
 
            RadGrid1.Rebind()
            RadGrid1.Rebind()
        End If
 
    End Sub
 
    Protected Sub Page_PreRender(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.PreRender
        Dim manager As RadAjaxManager = RadAjaxManager.GetCurrent(Page)
        '   Response.Write(manager.ID.ToString)
    End Sub
 
    Protected Sub RadGrid1_RowDrop(ByVal sender As Object, ByVal e As Telerik.Web.UI.GridDragDropEventArgs) Handles RadGrid1.RowDrop
        Dim StreamWriter1 As System.IO.StreamWriter = New System.IO.StreamWriter(Server.MapPath("_Error.xml"), True)
 
        Try
            Dim SortOrder As Double
            Dim RecID As Integer = 0
            Dim item As GridDataItem = CType(e.DestDataItem, GridDataItem)
            SortOrder = CDbl(item("SortOrder").Text)
 
            Dim iRow As Integer = item.ItemIndex
 
            StreamWriter1.WriteLine(iRow.ToString)
 
            If (e.DropPosition = GridItemDropPosition.Above) Then
                StreamWriter1.WriteLine("Above")
                If iRow = 0 Then
                    SortOrder = (CDbl(item("SortOrder").Text) - 0.01)
                Else
                    If iRow > 2 Then
                        item = RadGrid1.MasterTableView.Items(iRow - 1)
                        StreamWriter1.WriteLine(item("SortOrder").Text)
                        SortOrder = (CDbl(item("SortOrder").Text) + CDbl(RadGrid1.MasterTableView.Items(iRow)("SortOrder").Text)) / 2
                        item = RadGrid1.MasterTableView.Items(iRow)
                        StreamWriter1.WriteLine(item("SortOrder").Text)
                    End If
 
                    If iRow = 1 Then
                        item = RadGrid1.MasterTableView.Items(iRow)
                        StreamWriter1.WriteLine(item("SortOrder").Text)
                        SortOrder = (CDbl(item("SortOrder").Text) + 0) / 2
 
                    End If
                End If
            End If
 
            If (e.DropPosition = GridItemDropPosition.Below) Then
 
                If RadGrid1.MasterTableView.Items.Count = iRow Then
                    item = RadGrid1.MasterTableView.Items(iRow + 1)
                    StreamWriter1.WriteLine(item("SortOrder").Text)
                    SortOrder = (CDbl(item("SortOrder").Text) + 0.01)
                    item = RadGrid1.MasterTableView.Items(iRow)
                    StreamWriter1.WriteLine(item("SortOrder").Text)
 
                Else
                    If iRow > 2 Then
                        item = RadGrid1.MasterTableView.Items(iRow + 1)
                        StreamWriter1.WriteLine(item("SortOrder").Text)
                        SortOrder = (CDbl(item("SortOrder").Text) + CDbl(RadGrid1.MasterTableView.Items(iRow)("SortOrder").Text)) / 2
                        item = RadGrid1.MasterTableView.Items(iRow)
                        StreamWriter1.WriteLine(item("SortOrder").Text)
                    End If
 
                    If iRow = 1 Then
                        item = RadGrid1.MasterTableView.Items(iRow)
                        StreamWriter1.WriteLine(item("SortOrder").Text)
                        SortOrder = (CDbl(item("SortOrder").Text) + 0) / 2
 
                    End If
                End If
 
                StreamWriter1.WriteLine("Below")
            End If
 
 
 
 
 
 
            RecID = CInt(e.DraggedItems(0).GetDataKeyValue("RecID"))
 
            Try
                userInfo = DotNetNuke.Entities.Users.UserController.GetCurrentUserInfo()
                Dim myConnection As SqlConnection = Nothing
                Dim myReader As SqlDataReader = Nothing
                Dim sql As SqlCommand = Nothing
 
                myConnection = New SqlConnection(ConnectionString)
 
                sql = New SqlCommand("bio_UpdateGrantsDragDrog", myConnection)
                sql.CommandType = CommandType.StoredProcedure
                sql.Parameters.AddWithValue("@RecID", RecID)
                sql.Parameters.AddWithValue("@SortOrder", CDbl(SortOrder))
 
                StreamWriter1.WriteLine(RecID.ToString)
                StreamWriter1.WriteLine(SortOrder.ToString)
 
                myConnection.Open()
                sql.ExecuteNonQuery()
                myConnection.Close()
 
                RadGrid1.Rebind()
            Catch ex As Exception
 
                StreamWriter1.WriteLine("Grants Update_Data")
                StreamWriter1.WriteLine(ex.Message)
                StreamWriter1.Close()
            End Try
 
        Catch ex As Exception
            StreamWriter1.WriteLine(ex.Message)
        Finally
 
            StreamWriter1.Close()
        End Try
 
 
 
    End Sub
 
    Protected Sub RadGrid1_ItemDataBound(ByVal sender As Object, ByVal e As Telerik.Web.UI.GridItemEventArgs) Handles RadGrid1.ItemDataBound
 
        If TypeOf e.Item Is GridDataItem Then
            Dim item As GridDataItem = CType(e.Item, GridDataItem)
            Dim rowview As DataRowView = CType(item.DataItem, DataRowView)
            Dim chk As CheckBox = CType(e.Item.FindControl("IsSelected"), CheckBox)
            If rowview("IsSelected").ToString = "True" Then
                chk.Checked = True
            Else
                chk.Checked = False
            End If
 
 
            Dim chkMost As CheckBox = CType(e.Item.FindControl("IsMostSelected"), CheckBox)
            If rowview("IsMostSelected").ToString = "True" Then
                chkMost.Checked = True
            Else
                chkMost.Checked = False
            End If
        End If
 
 
 
    End Sub
 
 
    Protected Sub CheckBoxList_IndexChanged(ByVal sender As Object, ByVal e As System.EventArgs)
 
        Dim cb As CheckBoxList = CType(sender, CheckBoxList)
        Try
            If cb.Items(0).Selected = True And cb.Items(1).Selected = True Then
                cbIndex = 3
            ElseIf cb.Items(0).Selected = False And cb.Items(1).Selected = False Then
                cbIndex = 0
            ElseIf cb.Items(0).Selected = True Then
                cbIndex = 1
            ElseIf cb.Items(1).Selected = True Then
                cbIndex = 2
            End If
 
            RadGrid1.Rebind()
            If cbIndex = 0 Then
                cb.Items(0).Selected = False
                cb.Items(1).Selected = False
 
            ElseIf cbIndex = 1 Then
                cb.Items(0).Selected = True
                cb.Items(1).Selected = False
 
            ElseIf cbIndex = 2 Then
                cb.Items(0).Selected = False
                cb.Items(1).Selected = True
            ElseIf cbIndex = 3 Then
                cb.Items(0).Selected = True
                cb.Items(1).Selected = True
            End If
 
 
        Catch ex As Exception
 
        Finally
 
            '
        End Try
 
      
    End Sub
End Class

 

 

3 Answers, 1 is accepted

Sort by
0
Tsvetoslav
Telerik team
answered on 07 Feb 2012, 05:46 PM
Hello William,

Your code is not readable - please, paste your complete aspx and code behind using the CODE FORMATTER tool of the ticket editor.

Greetings, Tsvetoslav
the Telerik team
Sharpen your .NET Ninja skills! Attend Q1 webinar week and get a chance to win a license! Book your seat now >>
0
William
Top achievements
Rank 1
answered on 07 Feb 2012, 09:14 PM
Sorry about that I was trying to find a way to upload a zip.  Hope that's better on the original post.

Bill
0
Tsvetoslav
Telerik team
answered on 08 Feb 2012, 11:43 AM
Hello William,

I tried to reproduce the problem in a sample of mine with the a grid definition as yours - but to no avail. Could you take a look at the attached sample and let me know what modifications are needed so that the issue be replicated. 

Regards,
Tsvetoslav
the Telerik team
Sharpen your .NET Ninja skills! Attend Q1 webinar week and get a chance to win a license! Book your seat now >>
Tags
Grid
Asked by
William
Top achievements
Rank 1
Answers by
Tsvetoslav
Telerik team
William
Top achievements
Rank 1
Share this question
or