Questions on UI for ASP.NET AJAX Forum

110,762 questions

7 answers

267 views

I have notice a new problem that I cannot account for. I have several development boxes. Two of the three operate using VM's and the third is a honest to god developer box. On one of those systems the "3rd party" toolbox components are all missing their icons. By this I mean that all the telerik components appear in the toolbox however non of them have any icon next to them. This makes it difficult to find a "radgrid" component and so on. Everything works however visually it is difficult to quickly find things.

Programs written previously, or those constructed "today" function without error. That is to say all the Telerik components appear in the toolbox (albeit without icons), and can be dragged into your program and used in the traditional manner. Programs compile and deploy without any challenges.

In an effort to resolve this problem I have uninstalled the telerik suite of tools completely. I have rebooted the box. I then ran a repair on Visual Studio. I launched the VS tool using Admin rights and allowed it to reset the toolbox as part of its "initial" load of the studio product. I then reloaded all the Telerik products and attempted to write a simple "do nothing" program. As before the toolbox shows all the components however nothing has any icons.

I have tried everything short of nuking everything and starting over. The only idea I can remotely account for this (and I do not believe this) is that this particular box (and no others) has had a virtual machine run upon it which contained WIndows 10 and Visual Studio 2015. Notice I said the same physical hardware however different VM's. Is it possible that I am encountering a "sync" problem where a "cloud" service has settings (from my VS 2015 instance) and they are attempting to merge with my VS 2013 version? I know TELERIK has a sync of settings option as well as Microsofts Team Foundation server (which I use) also syncs settings. Again while I am using a different VM, i am on the same physical hardware and same logins.

Anyone have any bright ideas for me to try? Has anyone seen this problem? I hate to wipe the box entirely to solve an icon problem.

General Discussions

answered on 20 Mar 2015

1 answer

179 views

How to retain rad combobox selected value inside telerik radgrid on page postback

Hi,
I have a telerik radgrid in my page and one of the columns has rad combobox.After I select some value in combobox if page post back happens combo box selected value is not retained.Please help.

Thanks & Regards
Himagiri

Grid

answered on 20 Mar 2015

1 answer

145 views

Can not drag and drop when zooming web

Hi Telerik

I have an issue about drag and drop. I can not drag and drop a record when zooming web. The DestDatItem is null. Thanks

Grid

answered on 20 Mar 2015

1 answer

342 views

physical path vs virtual path

I'm trying to display images from another server path using ImageGallery example below: (actually code with read from database loop) anyway, if I put the images in the wwwroot folder path it works "~\images\" but when I point to a physical path it doesn't.

Protected Sub RadImageGallery1_NeedDataSource(sender As Object, e As Telerik.Web.UI.ImageGalleryNeedDataSourceEventArgs) Handles RadImageGallery1.NeedDataSource
TryCast(sender, RadImageGallery).DataSource = GetImageGalleryData()
End Sub

Private Function GetImageGalleryData() As DataTable
Dim table As New DataTable()
table.Columns.Add("Title", GetType(String))
table.Columns.Add("Description", GetType(String))
table.Columns.Add("ImageData", GetType(String))

table.Rows.Add("Image 1", "Description", "c:\images\Bale-0301201638060.jpg")
table.Rows.Add("Image 2", "Description", "c:\images\Bale-0301201638060.jpg")

Return table
End Function

ImageGallery

answered on 20 Mar 2015

1 answer

70 views

Content still plays in pop up window after closing

Hi

Not necessarily a problem with the control, just asking if this problem has a solution.

I have a Radwindow that pops up modally and plays a YouTube video, trouble is when I close the window the content continues playing.

Can this be prevented?

Andy

Window

answered on 20 Mar 2015

1 answer

119 views

Get row index from control on client site

I need to determine the row that a control is on the client side.

Anyone have an example that I can use?

Thanks

Grid

answered on 20 Mar 2015

1 answer

176 views

Selection out of range when setting value for RadComboBox in Filter-template

Dear All,

I am going mad with what looks to me as a silly thing; I get a "Selection out of range" Parameter name: value error on a page when I try to set the filter to a value that does not exist in the dropdown combo (see printscreen attached).

I am looking for a solution to avoid/catch this error. I cannot avoid people to filter for non-existing values so I need to catch this error and handle it properly but I don't know how... Can someone help ? The code of the page is as below:

<%@ Page Title="List of WoWs" Language="VB" MasterPageFile="~/wowsearch.master" AutoEventWireup="false" CodeFile="WoWlist.aspx.vb" Inherits="WoWlist" %>

<asp:Content ID="Content1" ContentPlaceHolderID="head" Runat="Server">

<title>R&D Campus WoWs List</title>

</asp:Content>

<asp:Content ID="Content2" ContentPlaceHolderID="qckSwitch" Runat="Server">

<asp:HyperLink ID="HyperLink1" runat="server" NavigateUrl="~/WoWsearch.aspx">switch to search tool</asp:HyperLink>

</asp:Content>

<asp:Content ID="Content3" ContentPlaceHolderID="cntBody" Runat="Server">

<telerik:RadCodeBlock ID="RadCodeBlock1" runat="server">

<script type="text/javascript">

//<![CDATA[

var RadGrid1;

var lnkShareFilter;

lnkShareFilter = '';

function GetGridObject(sender, eventArgs) {

RadGrid1 = sender;

}

function ExportToExcel(fileName)

{

RadGrid1.get_masterTableView().exportToExcel(fileName);

}

//]]>

</script>

</telerik:RadCodeBlock>

<telerik:RadGrid ID="RadGrid1" runat="server" AllowFilteringByColumn="True" AllowPaging="True" AllowSorting="False" CellSpacing="0"

DataSourceID="sqlWoWList" GridLines="None" PageSize="20" EnableLinqExpressions="false" Width="100%" Height="100%">

<ClientSettings>

<Scrolling AllowScroll="True" UseStaticHeaders="True" />

<ClientEvents OnGridCreated="GetGridObject"></ClientEvents>

</ClientSettings>

<ExportSettings ExportOnlyData="true" FileName="List of WoWs" HideStructureColumns="true" IgnorePaging="true" >

<Excel Format="ExcelML" />

</ExportSettings>

<MasterTableView AutoGenerateColumns="False" DataSourceID="sqlWoWList" CommandItemDisplay="Top">

<NoRecordsTemplate>

<table width="100%" border="0" cellpadding="20" cellspacing="20">

<tr>

<td align="center">

<h2 style="color:Red">No WoWs or SOPs found.<br />Please change or reset the filter.</h2>

</td>

</tr>

</table>

</NoRecordsTemplate>

<CommandItemSettings ShowExportToExcelButton="true" ShowAddNewRecordButton="false" ShowRefreshButton="false" />

<CommandItemTemplate>

<div id="cmdContainer" style="width: 99%; padding: 10px; text-align: right;">

<a href=

"http://teamroom.nestle.com/GLOBEISIT/PTCOrbeBPMAcademy/Induction ; Training Materials/Training and Quick Reference Materials/Campus Search QRC.pdf"

target="_blank" style="padding: 5px; border: 1px solid gray; margin: 0px 5px;">

<img src="../App_Themes/OneRDCampus/images/question-white.png" style="border: none; vertical-align: text-bottom;" /> How To

</a>

<a href="WoWlist.aspx" style="padding: 5px; border: 1px solid gray; margin: 0px 5px;">

<img src="../App_Themes/OneRDCampus/images/filter_(delete)_16x16.gif" style="border: none; vertical-align: text-bottom;" /> Reset filters

</a>

<a id="lnkShareFilter" onserverclick="lnkShareFilter_ServerClick" href="#" runat="server" style="padding: 5px; border: 1px solid gray; margin: 0px 5px;">

<img src="../App_Themes/OneRDCampus/images/bpm_email.png" style="border: none; vertical-align: text-bottom;" /> Share filter

</a>

<a href="#" runat="server" onclick="ExportToExcel('WoWlist');" style="padding: 5px; border: 1px solid gray; margin: 0px 5px;">

<img src="../App_Themes/OneRDCampus/images/Export2XL.gif" style="border: none; vertical-align: text-bottom;" /> Export to excel

</a>

</div>

</CommandItemTemplate>

<Columns>

<telerik:GridTemplateColumn DataField="Title" CurrentFilterFunction="NoFilter" HeaderText="Title" HeaderTooltip="Title of the WoW or document (roll-over to display the purpose)"

SortExpression="Title" UniqueName="Title" FilterControlAltText="Filter Title Column" FilterListOptions="AllowAllFilters" AutoPostBackOnFilter="true"

ShowFilterIcon="false" FilterControlWidth="100%">

<ItemTemplate>

<asp:HyperLink ID="HyperLink2" runat="server" NavigateUrl='<%#Eval("myURL")%>' ToolTip='<%#Eval("Purpose")%>' Target='<%#Eval("URLTarget")%>'><%#Eval("Title")%></asp:HyperLink>

</ItemTemplate>

</telerik:GridTemplateColumn>

<telerik:GridBoundColumn DataField="DiagramOwner" CurrentFilterFunction="NoFilter" FilterControlAltText="Filter DiagramOwner column" HeaderText="Owner" ReadOnly="True" SortExpression="DiagramOwner" UniqueName="DiagramOwner"

AutoPostBackOnFilter="true" ShowFilterIcon="false" FilterControlWidth="100%" HeaderTooltip="Owner of the WoW or document">

<HeaderStyle Width="130px" />

</telerik:GridBoundColumn>

<telerik:GridBoundColumn DataField="Unit" CurrentFilterFunction="NoFilter" FilterControlAltText="Filter Unit column" HeaderText="Unit"

SortExpression="Unit" UniqueName="Unit" HeaderTooltip="Unit that the WoW or document belongs to">

<HeaderStyle Width="120px" />

<FilterTemplate>

<telerik:RadComboBox ID="RadComboBoxUnit" runat="server" MaxHeight="200px" Width="110px" DropDownWidth="130px"

DataSourceID="sqlUnits" DataTextField="Unit" DataValueField="Unit" AppendDataBoundItems="true"

SelectedValue='<%# TryCast(Container, GridItem).OwnerTableView.GetColumn("Unit").CurrentFilterValue%>'

OnClientSelectedIndexChanged="UnitIndexChanged">

<Items>

<telerik:RadComboBoxItem Text="All" />

</Items>

</telerik:RadComboBox>

<telerik:RadScriptBlock ID="RadScriptBlock4" runat="server">

<script type="text/javascript">

function UnitIndexChanged(sender, args) {

var tableView = $find("<%# TryCast(Container, GridItem).OwnerTableView.ClientID%>");

tableView.filter("Unit", args.get_item().get_value(), "Contains");

lnkShareFilter &= '&Unit=' & args.get_item().get_value();

}

</script>

</telerik:RadScriptBlock>

</FilterTemplate>

</telerik:GridBoundColumn>

<telerik:GridBoundColumn DataField="Type" CurrentFilterFunction="NoFilter" FilterControlAltText="Filter Type column" HeaderText="Type"

SortExpression="Type" UniqueName="Type" FilterControlWidth="50px" HeaderTooltip="Type of WoW or document">

<HeaderStyle Width="90px" />

<FilterTemplate>

<telerik:RadComboBox ID="RadComboBoxType" runat="server" Width="80px" DropDownWidth="130px"

DataSourceID="sqlTypes" DataTextField="Type" DataValueField="Type" AppendDataBoundItems="true"

SelectedValue='<%# TryCast(Container, GridItem).OwnerTableView.GetColumn("Type").CurrentFilterValue%>'

OnClientSelectedIndexChanged="TypeIndexChanged">

<Items>

<telerik:RadComboBoxItem Text="All" />

</Items>

</telerik:RadComboBox>

<telerik:RadScriptBlock ID="RadScriptBlock3" runat="server">

<script type="text/javascript">

function TypeIndexChanged(sender, args) {

var tableView = $find("<%# TryCast(Container, GridItem).OwnerTableView.ClientID%>");

tableView.filter("Type", args.get_item().get_value(), "EqualTo");

}

</script>

</telerik:RadScriptBlock>

</FilterTemplate>

</telerik:GridBoundColumn>

<telerik:GridBoundColumn DataField="Building" CurrentFilterFunction="NoFilter" FilterControlAltText="Filter by Group" HeaderText="Building/Group"

SortExpression="Building" UniqueName="Building" HeaderTooltip="Campus Building or other local grouping" >

<HeaderStyle Width="120px" />

<FilterTemplate>

<telerik:RadComboBox ID="RadComboBoxBuilding" runat="server" MaxHeight="200px" Width="110px" DropDownWidth="160px"

DataSourceID="sqlBuildings" DataTextField="Building" DataValueField="Building" AppendDataBoundItems="true"

SelectedValue='<%# TryCast(Container, GridItem).OwnerTableView.GetColumn("Building").CurrentFilterValue%>'

OnClientSelectedIndexChanged="BuildingIndexChanged">

<Items>

<telerik:RadComboBoxItem Text="All" />

</Items>

</telerik:RadComboBox>

<telerik:RadScriptBlock ID="RadScriptBlock1" runat="server">

<script type="text/javascript">

function BuildingIndexChanged(sender, args) {

var tableView = $find("<%# TryCast(Container, GridItem).OwnerTableView.ClientID%>");

tableView.filter("Building", args.get_item().get_value(), "EqualTo");

}

</script>

</telerik:RadScriptBlock>

</FilterTemplate>

</telerik:GridBoundColumn>

<telerik:GridBoundColumn DataField="Room" CurrentFilterFunction="NoFilter" FilterControlAltText="Filter Sub-Grouping column" HeaderText="Room/Sub-Group"

SortExpression="Room" UniqueName="Room" HeaderTooltip="Campus Room or other local sub-grouping">

<HeaderStyle Width="140px" />

<FilterTemplate>

<telerik:RadComboBox ID="RadComboBoxRoom" runat="server" MaxHeight="200px" Width="130px" DropDownWidth="260px"

DataSourceID="sqlRooms" DataTextField="Room" DataValueField="Room" AppendDataBoundItems="true"

SelectedValue='<%# TryCast(Container, GridItem).OwnerTableView.GetColumn("Room").CurrentFilterValue%>'

OnClientSelectedIndexChanged="RoomIndexChanged">

<Items>

<telerik:RadComboBoxItem Text="All" />

</Items>

</telerik:RadComboBox>

<telerik:RadScriptBlock ID="RadScriptBlock2" runat="server">

<script type="text/javascript">

function RoomIndexChanged(sender, args) {

var tableView = $find("<%# TryCast(Container, GridItem).OwnerTableView.ClientID%>");

tableView.filter("Room", args.get_item().get_value(), "EqualTo");

}

</script>

</telerik:RadScriptBlock>

</FilterTemplate>

</telerik:GridBoundColumn>

<telerik:GridBoundColumn DataField="IsReleased" FilterControlAltText="Filter IsReleased column" HeaderText="Released" SortExpression="IsReleased"

UniqueName="IsReleased" HeaderTooltip="Is the WoW or document released and publically available?">

<HeaderStyle Width="55px" />

<FilterTemplate>

<telerik:RadComboBox ID="RadComboBoxIsReleased" runat="server" Width="42px" DropDownAutoWidth="Enabled"

SelectedValue='<%# TryCast(Container, GridItem).OwnerTableView.GetColumn("IsReleased").CurrentFilterValue%>'

OnClientSelectedIndexChanged="IsReleasedIndexChanged">

<Items>

<telerik:RadComboBoxItem Text="All" />

<telerik:RadComboBoxItem Text="Yes" Value="Yes" />

<telerik:RadComboBoxItem Text="No" Value="No" />

</Items>

</telerik:RadComboBox>

<telerik:RadScriptBlock ID="RadScriptBlock5" runat="server">

<script type="text/javascript">

function IsReleasedIndexChanged(sender, args) {

var tableView = $find("<%# TryCast(Container, GridItem).OwnerTableView.ClientID%>");

tableView.filter("IsReleased", args.get_item().get_value(), "EqualTo");

}

</script>

</telerik:RadScriptBlock>

</FilterTemplate>

</telerik:GridBoundColumn>

<telerik:GridBoundColumn DataField="NQMSRelated" CurrentFilterFunction="NoFilter" FilterControlAltText="Filter NIMS column" HeaderText="Compliance"

SortExpression="NQMSRelated"" UniqueName="NQMSRelated" HeaderTooltip="Is the WoW or document subject to Compliance?">

<HeaderStyle Width="50px" />

<FilterTemplate>

<telerik:RadComboBox ID="RadComboBoxNQMSRelated" runat="server" Width="42px" DropDownAutoWidth="Enabled"

SelectedValue='<%# TryCast(Container, GridItem).OwnerTableView.GetColumn("NQMSRelated").CurrentFilterValue%>'

OnClientSelectedIndexChanged="NQMSRelatedIndexChanged">

<Items>

<telerik:RadComboBoxItem Text="All" />

<telerik:RadComboBoxItem Text="Yes" Value="Yes" />

<telerik:RadComboBoxItem Text="No" Value="No" />

</Items>

</telerik:RadComboBox>

<telerik:RadScriptBlock ID="RadScriptBlock6" runat="server">

<script type="text/javascript">

function NQMSRelatedIndexChanged(sender, args) {

var tableView = $find("<%# TryCast(Container, GridItem).OwnerTableView.ClientID%>");

tableView.filter("NQMSRelated", args.get_item().get_value(), "EqualTo");

}

</script>

</telerik:RadScriptBlock>

</FilterTemplate>

</telerik:GridBoundColumn>

</Columns>

</MasterTableView>

<GroupingSettings CaseSensitive="false" />

</telerik:RadGrid>

<asp:SqlDataSource ID="sqlUnits" runat="server" ConnectionString="<%$ ConnectionStrings:Hydra_DevConnectionString %>"

SelectCommand="SELECT DISTINCT [Unit] FROM [WoW_VWR_Trackers] WHERE [Unit] IS NOT NULL ORDER BY [Unit]">

</asp:SqlDataSource>

<asp:SqlDataSource ID="sqlTypes" runat="server" ConnectionString="<%$ ConnectionStrings:Hydra_DevConnectionString %>"

SelectCommand="SELECT DISTINCT [Type] FROM [WoW_VWR_Trackers] ORDER BY [Type]"></asp:SqlDataSource>

<asp:SqlDataSource ID="sqlBuildings" runat="server" ConnectionString="<%$ ConnectionStrings:Hydra_DevConnectionString %>"

SelectCommand="SELECT DISTINCT [Building] FROM [WoW_VWR_Trackers] WHERE [Building] IS NOT NULL ORDER BY [Building]">

</asp:SqlDataSource>

<asp:SqlDataSource ID="sqlRooms" runat="server" ConnectionString="<%$ ConnectionStrings:Hydra_DevConnectionString %>"

SelectCommand="SELECT DISTINCT [Room] FROM [WoW_VWR_Trackers] WHERE [Room] IS NOT NULL ORDER BY [Room]">

</asp:SqlDataSource>

<asp:SqlDataSource ID="sqlWoWList" runat="server" ConnectionString="<%$ ConnectionStrings:Hydra_DevConnectionString %>"

SelectCommand="SELECT DiagramURL AS myURL, * FROM [Hydra_Dev].[dbo].[WoW_VWR_Trackers]">

</asp:SqlDataSource>

</asp:Content>

And the code-behind:

Imports Telerik.Web.UI

Imports System.Diagnostics

Imports System.Collections.Specialized.NameObjectCollectionBase

Imports System.Net

Imports System.IO

Imports System.Net.Mail

Partial Class WoWlist

Inherits System.Web.UI.Page

Const lvlVerboseNone As Integer = 0

Const lvlVerboseSilent As Integer = 1

Const lvlVerboseMail As Integer = 2

Const lvlVerboseScreen As Integer = 4

Const lvlVerbose As Integer = lvlVerboseSilent

Dim ShareFilter As Object

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

Dim IsDataSyncd As Boolean = CheckDataSync()

If lvlVerbose = lvlVerboseMail Then

SendChkMail()

End If

If Not IsDataSyncd Then

'Launch DataSync

End If

If Not IsPostBack Then

If Request.QueryString("Title") IsNot Nothing Then

Dim myTitle As String = Server.UrlDecode(Request.QueryString("Title").ToString)

If RadGrid1.MasterTableView.FilterExpression <> "" Then

RadGrid1.MasterTableView.FilterExpression &= " AND "

End If

RadGrid1.MasterTableView.FilterExpression &= "(Title LIKE '" & myTitle & "')"

Dim radColumn As GridColumn = RadGrid1.MasterTableView.GetColumnSafe("Title")

radColumn.CurrentFilterValue = myTitle

radColumn.CurrentFilterFunction = GridKnownFunction.Contains

End If

If Request.QueryString("Owner") IsNot Nothing Then

Dim myOwner As String = Server.UrlDecode(Request.QueryString("Owner").ToString)

If RadGrid1.MasterTableView.FilterExpression <> "" Then

RadGrid1.MasterTableView.FilterExpression &= " AND "

End If

RadGrid1.MasterTableView.FilterExpression &= "(DiagramOwner LIKE '" & myOwner & "')"

Dim radColumn As GridColumn = RadGrid1.MasterTableView.GetColumnSafe("DiagramOwner")

radColumn.CurrentFilterValue = myOwner

radColumn.CurrentFilterFunction = GridKnownFunction.Contains

End If

If Request.QueryString("Building") IsNot Nothing Then

Dim myBuilding As String = Server.UrlDecode(Request.QueryString("Building").ToString)

If RadGrid1.MasterTableView.FilterExpression <> "" Then

RadGrid1.MasterTableView.FilterExpression &= " AND "

End If

RadGrid1.MasterTableView.FilterExpression &= "(Building LIKE '" & myBuilding & "')"

Dim radColumn As GridColumn = RadGrid1.MasterTableView.GetColumnSafe("Building")

radColumn.CurrentFilterValue = myBuilding

radColumn.CurrentFilterFunction = GridKnownFunction.EqualTo

End If

If Request.QueryString("Unit") IsNot Nothing Then

Dim myUnit As String = Server.UrlDecode(Request.QueryString("Unit").ToString)

If RadGrid1.MasterTableView.FilterExpression <> "" Then

RadGrid1.MasterTableView.FilterExpression &= " AND "

End If

RadGrid1.MasterTableView.FilterExpression &= "(Unit LIKE '" & myUnit & "')"

Dim radColumn As GridColumn = RadGrid1.MasterTableView.GetColumnSafe("Unit")

radColumn.CurrentFilterValue = myUnit

radColumn.CurrentFilterFunction = GridKnownFunction.EqualTo

End If

If Request.QueryString("Room") IsNot Nothing Then

Dim myRoom As String = Server.UrlDecode(Request.QueryString("Room").ToString)

If RadGrid1.MasterTableView.FilterExpression <> "" Then

RadGrid1.MasterTableView.FilterExpression &= " AND "

End If

RadGrid1.MasterTableView.FilterExpression &= "(Room LIKE '" & myRoom & "')"

Dim radColumn As GridColumn = RadGrid1.MasterTableView.GetColumnSafe("Room")

radColumn.CurrentFilterValue = myRoom

radColumn.CurrentFilterFunction = GridKnownFunction.EqualTo

End If

If Request.QueryString("Type") IsNot Nothing Then

Dim myType As String = Server.UrlDecode(Request.QueryString("Type").ToString)

If RadGrid1.MasterTableView.FilterExpression <> "" Then

RadGrid1.MasterTableView.FilterExpression &= " AND "

End If

RadGrid1.MasterTableView.FilterExpression &= "(Type LIKE '" & myType & "')"

Dim radColumn As GridColumn = RadGrid1.MasterTableView.GetColumnSafe("Type")

radColumn.CurrentFilterValue = myType

radColumn.CurrentFilterFunction = GridKnownFunction.EqualTo

End If

If Request.QueryString("Owner") IsNot Nothing Then

Dim myOwner As String = Server.UrlDecode(Request.QueryString("Owner").ToString)

If RadGrid1.MasterTableView.FilterExpression <> "" Then

RadGrid1.MasterTableView.FilterExpression &= " AND "

End If

RadGrid1.MasterTableView.FilterExpression &= "(DiagramOwner LIKE '" & myOwner & "')"

Dim radColumn As GridColumn = RadGrid1.MasterTableView.GetColumnSafe("DiagramOwner")

radColumn.CurrentFilterValue = myOwner

radColumn.CurrentFilterFunction = GridKnownFunction.EqualTo

End If

If Request.QueryString("IsReleased") IsNot Nothing Then

If RadGrid1.MasterTableView.FilterExpression <> "" Then

RadGrid1.MasterTableView.FilterExpression &= " AND "

End If

RadGrid1.MasterTableView.FilterExpression &= "(IsReleased LIKE '" & Request.QueryString("IsReleased").ToString & "')"

Dim radColumn As GridColumn = RadGrid1.MasterTableView.GetColumnSafe("IsReleased")

radColumn.CurrentFilterValue = Request.QueryString("IsReleased").ToString

radColumn.CurrentFilterFunction = GridKnownFunction.EqualTo

Else

If Request.QueryString("IsReleased") Is Nothing And Request.QueryString("Owner") Is Nothing And Request.QueryString("Type") Is Nothing And Request.QueryString("Room") Is Nothing And Request.QueryString("Unit") Is Nothing Then

If RadGrid1.MasterTableView.FilterExpression <> "" Then

RadGrid1.MasterTableView.FilterExpression &= " AND "

End If

RadGrid1.MasterTableView.FilterExpression &= "(IsReleased LIKE 'Yes')"

Dim radColumn As GridColumn = RadGrid1.MasterTableView.GetColumnSafe("IsReleased")

radColumn.CurrentFilterValue = "Yes"

radColumn.CurrentFilterFunction = GridKnownFunction.EqualTo

End If

If Request.QueryString("NQMSRelated") IsNot Nothing Then

If RadGrid1.MasterTableView.FilterExpression <> "" Then

RadGrid1.MasterTableView.FilterExpression &= " AND "

End If

RadGrid1.MasterTableView.FilterExpression &= "(NQMSRelated LIKE '" & Request.QueryString("NQMSRelated").ToString & "')"

Dim radColumn As GridColumn = RadGrid1.MasterTableView.GetColumnSafe("NQMSRelated")

radColumn.CurrentFilterValue = Request.QueryString("NQMSRelated").ToString

radColumn.CurrentFilterFunction = GridKnownFunction.EqualTo

End If

'RadGrid1.MasterTableView.Rebind()

End If

' FilterExpression="([IsReleased] LIKE 'Yes')"

End Sub

Private Function CheckDataSync() As Boolean

Return True

End Function

Private Function SendChkMail() As Boolean

Return False

End Function

Private Sub Page_Init(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Init

End Sub

Private Sub RadGrid1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles RadGrid1.Load

End Sub

Private Sub RadGrid1_PreInit(ByVal sender As Object, ByVal e As System.EventArgs)

For Each item As GridColumn In RadGrid1.MasterTableView.Columns

Dim FilterFunction As String = item.CurrentFilterFunction.ToString

Dim FilterValue As String = item.CurrentFilterValue.ToString

Dim FilterColumn As String = item.UniqueName.ToString

If FilterFunction <> "NoFilter" Then

If item.CurrentFilterValue.ToString() = "" Then

item.ItemStyle.BackColor = RadGrid1.AlternatingItemStyle.BackColor

Else

item.ItemStyle.BackColor = Drawing.Color.LightYellow

End If

Next

End Sub

Protected Sub RadGrid1_PreRender(ByVal source As Object, ByVal e As System.EventArgs) Handles RadGrid1.PreRender

If Not RadGrid1.MasterTableView.FilterExpression Is String.Empty Then

RefreshCombos()

End If

For Each item As GridColumn In RadGrid1.MasterTableView.Columns

Dim FilterFunction As String = item.CurrentFilterFunction.ToString

Dim FilterValue As String = item.CurrentFilterValue.ToString

Dim FilterColumn As String = item.UniqueName.ToString

If FilterFunction <> "NoFilter" Then

If item.CurrentFilterValue.ToString() = "" Then

item.ItemStyle.BackColor = RadGrid1.AlternatingItemStyle.BackColor

Else

item.ItemStyle.BackColor = Drawing.Color.LightYellow

End If

Next

End Sub

Protected Sub RefreshCombos()

sqlBuildings.SelectCommand = AddFilterParameters(sqlBuildings.SelectCommand, RadGrid1.MasterTableView.FilterExpression.ToString())

sqlRooms.SelectCommand = AddFilterParameters(sqlRooms.SelectCommand, RadGrid1.MasterTableView.FilterExpression.ToString())

sqlTypes.SelectCommand = AddFilterParameters(sqlTypes.SelectCommand, RadGrid1.MasterTableView.FilterExpression.ToString())

sqlUnits.SelectCommand = AddFilterParameters(sqlUnits.SelectCommand, RadGrid1.MasterTableView.FilterExpression.ToString())

RadGrid1.MasterTableView.Rebind()

End Sub

Private Function AddFilterParameters(ByVal sqlSelect As String, FilterExpression As String) As String

Dim posORDER As Int16 = 0

posORDER = InStr(sqlSelect, "ORDER BY", CompareMethod.Text) - 1

Dim sqlOrder As String = Right(sqlSelect, Len(sqlSelect) - posORDER)

Dim posWHERE As Int16 = 0

posWHERE = InStr(sqlSelect, "WHERE", CompareMethod.Text) - 2

Dim sqlCommand As String = ""

If posWHERE < 0 Then

sqlCommand = Left(sqlSelect, posORDER)

Else

sqlCommand = Left(sqlSelect, posWHERE)

End If

Dim sqlFilter As String = ""

If posWHERE > 2 Then

sqlFilter = Mid(sqlSelect, posWHERE + 8, posORDER - posWHERE - 8)

End If

If sqlFilter.Length > 0 Then

If Left(FilterExpression, 5) <> " AND " Then

sqlFilter &= " AND "

End If

sqlFilter &= FilterExpression

sqlCommand &= " WHERE " & sqlFilter

Return sqlCommand

End Function

Private Sub RadGrid1_Init(ByVal sender As Object, ByVal e As System.EventArgs) Handles RadGrid1.Init

Dim menu As GridFilterMenu = RadGrid1.FilterMenu

Dim i As Integer = 0

While i < menu.Items.Count

If menu.Items(i).Text = "NoFilter" Or _

menu.Items(i).Text = "Contains" Or _

menu.Items(i).Text = "EqualTo" Then

i = i + 1

Else

menu.Items.RemoveAt(i)

End If

End While

End Sub

Private Sub RadGrid1_ItemCommand(sender As Object, e As Telerik.Web.UI.GridCommandEventArgs) Handles RadGrid1.ItemCommand

If e.CommandName = RadGrid.FilterCommandName Then

Dim objFilterPair As Pair = CType(e.CommandArgument, Pair)

Dim objCol As GridColumn = CType(e.Item.OwnerTableView.GetColumn(objFilterPair.Second.ToString()), GridColumn)

Debug.Print("[" & objFilterPair.First.ToString & "]:[" & objFilterPair.Second.ToString & "] = [" & objCol.CurrentFilterValue.ToString() & "]")

If objCol.CurrentFilterValue.ToString() = "" Then

objCol.ItemStyle.BackColor = RadGrid1.AlternatingItemStyle.BackColor

Else

objCol.ItemStyle.BackColor = Drawing.Color.LightYellow

End If

End Sub

Protected Sub lnkShareFilter_ServerClick(sender As Object, e As EventArgs)

Dim lnkFilter As String = String.Empty

For Each item As GridColumn In RadGrid1.MasterTableView.Columns

Dim FilterFunction As String = item.CurrentFilterFunction.ToString

Dim FilterValue As String = item.CurrentFilterValue.ToString

Dim FilterColumn As String = item.UniqueName.ToString

If FilterFunction <> "NoFilter" Then

Debug.Print(FilterColumn & ":" & FilterFunction & "=" & FilterValue)

lnkFilter &= "&" & FilterColumn & "=" & Server.UrlEncode(FilterValue)

End If

Next

lnkFilter = "mailto:&subject=WoW List&body=" & Server.UrlEncode("http://chorra0004/hydra/bpm/WoWList.aspx?" & lnkFilter.Substring(1))

Debug.Print("[" & lnkFilter & "]")

ClientScript.RegisterStartupScript(Me.GetType(), "mailto", "<script type = 'text/javascript'>parent.location='" & lnkFilter & "'</script>")

End Sub

Protected Function ContentExists(ByVal strUrl As String) As Boolean

Try

Dim hwrRequest As HttpWebRequest = WebRequest.Create(strUrl)

Dim hwrResponse As HttpWebResponse = hwrRequest.GetResponse()

Dim stmStream As Stream = hwrResponse.GetResponseStream()

Dim strReader As String = New StreamReader(stmStream).ReadToEnd()

Return True

Catch ex As Exception

Return False

End Try

End Function

Protected Function urlExists(ByVal strUrl As String) As Boolean

Try

Dim hwrRequest As HttpWebRequest = WebRequest.Create(strUrl)

hwrRequest.AllowAutoRedirect = False

Dim hwrResponse As HttpWebResponse = hwrRequest.GetResponse()

If hwrResponse.StatusCode = HttpStatusCode.OK Then

Return True

Else

Return False

End If

Catch ex As Exception

Return False

End Try

End Function

End Class

Error occurs in Page_Load sub.

Grid

answered on 20 Mar 2015

1 answer

128 views

Specified argument was out of the range of valid values error in telerik asp.net timeline Scheduler

Hi Telerik Team
I am working on telerik asp.net scheduler.
When the resources(Left side in scheduler) is more than or equal to 65 it is giving error.
ERROR:
Specified argument was out of the range of valid values.
I already posted comment related to this in (http://feedback.telerik.com/Project/108/Feedback/Details/117889-specified-argument-was-out-of-the-range-of-valid-values) at 13 March 2015, 11:35.
Please find attached files from the above link.

Regards,
Tarun

Scheduler

answered on 20 Mar 2015

2 answers

82 views

Ctrl + V does not strip all formatting

Hi,
I have a RadEditor with StripFormattingOptions="AllExceptNewLines". Once the editor is loaded, if the user does a mouse-click followed by CTRL+V to paste html content, the html formatting is stripped successfully ONLY if there is a certain amount of time space between mouse-click and CTRL+V.
If the time gap is less, the following javascript exception is thrown and the formatting is not stripped.

Line: 2313
Error: 'parentNode' is null or not an object

We have users who do a quick Mouse+Click followed by CTRL+V and hence we see this bug quite often.
Please let me know if you have a workaround for this.
Any help is appreciated.

Thanks
Sangeetha

Editor

answered on 20 Mar 2015

1 answer

138 views

Long Running Script Error in RadEditor

When a certain combination of html is pasted into a RadEditor on our site, the webpage freezes and eventually we get the Long Running Script error.

The text I am test is nothing too strange:

For registration information Alicia Pierre Louis at <a href="mailto:asearles@misd.net">asearles@misd.net</a>.  Join us for one more day of professional learning experience of bringing the Common Core Reading Standards to your K-2 classroom.  We will take a look at the "brand new" MAISA Reading Units K-2. We will also include a half day session of leveled texts.

If I shorten it to the following, I don't get the error:

at <a href="mailto:asearles@misd.net">asearles@misd.net</a>.  Join us for one more day of professional learning experience of bringing the Common Core Reading Standards to your K-2 classroom.  We will take a look at the "brand new" MAISA Reading

If I don't have both a mailto link and the double quotes, I don't get the error.

I was able to reproduce the problem in some sample code I found at http://www.telerik.com/forums/paste-plain-text-pop-up-causes-you-to-jump-to-the-top-of-the-page.

I'm using version 2014.3.1024.35.

Editor

answered on 20 Mar 2015

Top users last month