Questions on UI for ASP.NET AJAX Forum

5 answers

329 views

Hide "No End Date" option in Recurrence Editor

In the Telerik Recurrence Editor control I want to hide "No End Date" while leaving "End After" and "End By". I can't allow my clients the ability to make recurring reservations with no end date.

I was able to hide the option button by finding the id of the control but there is no id for the label of that option button. So, I can hide the radio button but not the label for it.

Can anyone provide some code for this?

One work around would be to validate that the No End Date option is not selected after post back but I'd rather not do that.

Thanks,
Rob

Scheduler

answered on 19 Mar 2011

1 answer

104 views

Binding to ArrayList - trouble changing DataType

Hello,

I'm currently putting results of a Web Service call, into an ArrayList and binding successfully (columns auto generated). During binding I hide certain columns and the next step is to start formatting. I've looked through numerous articles on using OnColumnCreated/Creating, PreRender, and whatever I do to change the DataFormatString and DataType doesn't work when sorting. I'm trying to format the Amount column as System.Decimal, format as currency and sort but it is still sorting as a string (the native type in ArrayList).

EDIT: Over the course of a day I've done better troubleshooting and found that I expected the grid to convert values to the specific DataType. In my case, all JSON deserialized types were System.String. I now convert from IList to DataTable and change the DataType of the Amount column before populated. This works and sorts correctly now. Hope that helps someone.

Grid

answered on 19 Mar 2011

3 answers

117 views

Grid with checkbox

I am attempting to use a checkbox in a grid. I know there are many posts on this tompic but I just can't seem to get the checked values to work for me.

Here is my code:

Protected Sub btn_ModifyPerms_Click(sender As Object, e As System.EventArgs)

For Each grdItem As GridDataItem In rgd_TaskPermissions.Items

Dim cbx_Select As CheckBox = DirectCast(grdItem.FindControl("cbx_Select"), CheckBox)

'Do Something

If cbx_Select.Checked = False Then

Session("PermSelect") = 0

Else

Session("PermSelect") = 1

End If

Dim DatabaseName As String = Session("DBName")

Dim Table As String = Session("Table")

Dim TaskRole As String = Session("TaskRole")

Dim connectionString = New SqlConnection("server=DO-IT-AB\MSSQLAB;database=AeriesAdmin;UID=itc.sysadmin;PWD=m1s.@dm1n6;")

Dim command = New SqlCommand("aa_task_table_permissions_select", connectionString)

command.CommandType = CommandType.StoredProcedure

command.Parameters.Add("@dbname", SqlDbType.VarChar).Value = DatabaseName

command.Parameters.Add("@Table", SqlDbType.VarChar).Value = Table

command.Parameters.Add("@TaskRole", SqlDbType.VarChar).Value = Session("TaskRole")

command.Parameters.Add("@PermSelect", SqlDbType.Int).Value = Session("PermSelect")

command.Connection.Open()

command.ExecuteNonQuery()

command.Connection.Close()

Next

End Sub

The goal is for me to pass either a 1 or a 0 to a SQL Stored Procedure. I just can't seem to pass the correct parameter. I am not set on using a Session Variable. Any way I can get the 0 or the 1 to the @PermSelect variable is good by me.

Grid

answered on 19 Mar 2011

2 answers

103 views

How to change font of AddNewRecordText

Hi
I want change font of

AddNewRecordText for my grid
what do?

Grid

answered on 19 Mar 2011

3 answers

236 views

Batch Update Gets Old Value from RadNumericTextBox

I'm following the examples to perform a batch update in a radgrid.

However, the HashTable contains the old value for the RadNumericTextBox. I want whatever the user has just typed in. I have some client-side script that format the numbers.

How can I get the most recent value that the user typed in as the qty value?

Here's the template column markup:

<telerik:GridTemplateColumn DataField="Qty" DataType="System.Decimal" HeaderText="Qty"

SortExpression="Qty" UniqueName="Qty">

<EditItemTemplate>

<telerik:RadNumericTextBox Width="40px" MinValue="0" MaxValue="9999999.99" Type="Number"

ID="QtyTextBox" Text='<%# Bind("Qty") %>' InvalidStyleDuration="1000" NumberFormat-DecimalDigits="2"

runat="server" MaxLength="20">

<ClientEvents OnLoad="RemoveZeros" OnBlur="RemoveZeros" OnValueChanged="RemoveZeros" />

</telerik:RadNumericTextBox>

<asp:RangeValidator ID="rngQty" runat="server" ControlToValidate="QtyTextBox" ErrorMessage="<br />Must be a number"

Display="Dynamic" MinimumValue="0" MaximumValue="999999999" Type="Double"></asp:RangeValidator>

<asp:RequiredFieldValidator ID="reqQty" ControlToValidate="QtyTextBox" runat="server"

Display="Dynamic" ErrorMessage="<br />A quantity is required."></asp:RequiredFieldValidator>

</EditItemTemplate>

<ItemTemplate>

<asp:Label ID="QtyLabel" runat="server" Text='<%# FormatDecimalWithoutUnusedDecimals( Eval("Qty")) %>'></asp:Label>

</ItemTemplate>

<ItemStyle Width="55px" />

<HeaderStyle Width="55px" />

<FooterStyle HorizontalAlign="Right" />

<FooterTemplate>

</FooterTemplate>

</telerik:GridTemplateColumn>

Here's the code:

Protected Sub RadGrid1_ItemCommand(ByVal source As Object, _

ByVal e As Telerik.Web.UI.GridCommandEventArgs) _

Handles RadGrid1.ItemCommand

Dim newValues As New Hashtable

If e.CommandName = "UpdateAll" Then

UpdateShipment(Nothing, Nothing)

For Each editedItem As GridEditableItem In RadGrid1.EditItems

e.Item.OwnerTableView.ExtractValuesFromItem(newValues, editedItem)

Dim QtyTextBox As RadNumericTextBox

QtyTextBox = CType(editedItem("Qty").FindControl("QtyTextBox"), RadNumericTextBox)

UpdateRowValue(newValues)

Next

RadGrid1.EditIndexes.Clear()

RadGrid1.Rebind()

End If

End Sub

Here's the Javascript:

function RemoveZeros(sender, args) {

var tbValue = sender._textBoxElement.value;

if (tbValue.indexOf(".00") != -1)

sender._textBoxElement.value = tbValue.substr(0, tbValue.indexOf(".00"));

}

Grid

answered on 19 Mar 2011

8 answers

1.0K+ views

Could not load file or assembly 'Telerik.Web.Design, Version=2010.1.309.35, ..

I use the RadMenu and it works fine on my pc. When I move the project to the web server, I get the following error:

Could not load file or assembly 'Telerik.Web.Design, Version=2010.1.309.35,Culture=neutral, PublicKeyToken=121fae78165ba3d4' or one of its dependencies.The system cannot find the file specified

What am I missing?

Appreciate your help

Menu

answered on 19 Mar 2011

2 answers

76 views

editor works only in IE8 compatibility mode

hi,

i am using a RadEditor in a Multipage with Tab control, located in a radwindow.
in IE8 there is a strange behaviour, that when you are typing, the cursor jumps to the first position of the editor and no text is displayed. when you switch to another tab, after switching back to the editor, the typed text is displayed.
it works properly in compatibility mode and in firefox.
there is a workaround, using a

<

meta http-equiv="X-UA-Compatible" content="IE=7" /> tag on the page, but thats not really an acceptable solution.

thanks for any suggestions.

peter

Editor

answered on 18 Mar 2011

0 answers

59 views

Popup Edit Form in RadGrid with CheckBoxList

Hi Guys,
I'm not sure anybody have had this issue.
Using Popup Edit Form in RadGrid with CheckBoxList ,I want for all those selected CheckBoxes in CheckBoxlist (for each one)Run a Strored procedure which has been binded to ObjectDataSource.
I don't know how???
Thanks,
:)

General Discussions

asked on 18 Mar 2011

5 answers

154 views

Duplicate ClientIds with EnableAutomaticLoadOnDemand

Hi All,

I have created a custom template which contains a checkbox and a label for the RadComboBox multi select capability. When I enable AutomaticLoadOnDemand property to true, for the first request the markup is generated for first 10 items and for consecutive requests the checkbox client id's are same as the checkboxes that were requested for the first time. Is there anyway I can maintain the different id's for checkbox controls?

Thanks in advance!!!

ComboBox

answered on 18 Mar 2011

0 answers

83 views

Refresh Grid on Window Close. Again :(

I have accomplished this many times before. For some reason I just can't get this working. The main difference is that I am binding the grid from a datatable and not a sqldatasource. Can someone look at this with fresh eyes? Thanks.

Parent Page ASPX:

<%@ Page Language="VB" AutoEventWireup="false" CodeFile="user_lookup_site.aspx.vb" Inherits="_Default" %>

<%@ Register assembly="Telerik.Web.UI" namespace="Telerik.Web.UI" tagprefix="telerik" %>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html xmlns="http://www.w3.org/1999/xhtml">

<head id="Head1" runat="server">

<title>Aeries Global System Manager</title>

<link rel="stylesheet" type="text/css" href="~/includes/ITC_Main.css" />

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

<script type="text/javascript">

function refreshGrid(arg) {

if (!arg) {

$find("<%= RadAjaxManager1.ClientID %>").ajaxRequest("Rebind");

}

else {

$find("<%= RadAjaxManager1.ClientID %>").ajaxRequest("RebindAndNavigate");

}

</script>

</telerik:RadCodeBlock>

</head>

<body>

<form id="form1" runat="server">

<div id="header">

<table cellpadding="0" cellspacing="0" style="width: 100%; height: 40px;">

<tr>

<td style="width: 200px; vertical-align: middle; text-align: center;">

<img alt="" src="../../images/aalogo.gif" style="width: 169px; height: 35px" /></td>

<td style="text-align: center;">

<datelbl:ShowDate ID="ShowDate1" runat="server" />

</td>

<td style="width: 300px; text-align: center;">

<table cellpadding="2" cellspacing="0"

style="width: 292px; height: 40px; background-image: url('../../images/headerinset.gif'); text-align: center;">

<tr>

<td style="font-weight: bold; font-size: small; font-family: Arial, Helvetica, sans-serif; color: #00B000; text-align: center;">

Logged in as:

<asp:LoginName ID="LoginName1" runat="server" Font-Names="Arial"

Font-Size="Small" ForeColor="#597791"

meta:resourcekey="LoginName1Resource1" />

<asp:LoginStatus ID="LoginStatus1" runat="server" CssClass="login"

meta:resourcekey="LoginStatus1Resource1" />

</td>

</tr>

</table></td>

<td style="text-align: center; vertical-align: middle; width: 175px;">

<img alt="" src="../../images/aatusdlogo.gif" style="width: 152px; height: 36px" /></td>

</tr>

</table>

</div>

<div id="subheader">

</div>

<div>

<table cellpadding="0" cellspacing="0" style="width: 100%">

<tr>

<td style=

"width: 250px; background-image: url('../../images/menuback.gif'); background-color: #E6E6E6; border-bottom-style: solid; border-bottom-width: thin; border-bottom-color: #000000;"

valign="top">

<telerik:RadPanelBar ID="rpb_AA_Menu" Runat="server" DataFieldID="DataFieldID"

DataFieldParentID="DataFieldParentID"

DataNavigateUrlField="DataNavigateUrlField" DataSourceID="sds_AA_Menu"

DataTextField="DataTextField" DataValueField="DataTextField" Width="250px"

PersistStateInCookie="True" Skin="Office2007">

<DataBindings>

<telerik:RadPanelItemBinding SelectedImageUrlField="ImageURL"

ExpandedImageUrlField="ImageURL" HoveredImageUrlField="ImageURL"

ImageUrlField="ImageURL" />

<telerik:RadPanelItemBinding ImageUrlField="ImageURL" />

</DataBindings>

</telerik:RadPanelBar>

</td>

<td valign="top"

style="background-color: #FFFFFF; border-bottom-style: solid; border-bottom-width: thin; border-bottom-color: #000000;">

<table cellpadding="0" cellspacing="0" style="width: 100%">

<tr>

<td style="padding: 10px">

<h1>

ABI

User Manager - User Lookup by Site</h1>

<h2>

Database</h2>

<telerik:RadComboBox ID="rcb_Database" Runat="server"

DataSourceID="sds_Database" DataTextField="DatabaseName"

DataValueField="DatabaseName" AppendDataBoundItems="True">

<Items>

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

</Items>

</telerik:RadComboBox>

<h2>

Site </h2>

<telerik:RadComboBox ID="rcb_Site" Runat="server"

DataSourceID="sds_Site" DataTextField="Name"

DataValueField="IDSite" AppendDataBoundItems="True"

AutoPostBack="True" Height="300px" Width="250px">

<Items>

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

</Items>

</telerik:RadComboBox>

<table cellpadding="0" cellspacing="0" style="width: 100%">

<tr>

<td>

</td>

</tr>

<tr>

<td>

</td>

</tr>

</table>

<telerik:RadGrid ID="rgd_ABIUser" runat="server" GridLines="None" AutoGenerateColumns="False" Width="700px">

<MasterTableView DataKeyNames="ID">

<CommandItemSettings ExportToPdfText="Export to Pdf"></CommandItemSettings>

<RowIndicatorColumn>

<HeaderStyle Width="20px"></HeaderStyle>

</RowIndicatorColumn>

<ExpandCollapseColumn>

<HeaderStyle Width="20px"></HeaderStyle>

</ExpandCollapseColumn>

<Columns>

<telerik:GridBoundColumn DataField="SC" HeaderText="Site"

SortExpression="SC" UniqueName="SC" ItemStyle-HorizontalAlign="Center" HeaderStyle-HorizontalAlign="Center">

</telerik:GridBoundColumn>

<telerik:GridBoundColumn DataField="ID" HeaderText="User"

SortExpression="ID" UniqueName="ID" HeaderStyle-HorizontalAlign="Center" ItemStyle-Width="175px">

</telerik:GridBoundColumn>

<telerik:GridBoundColumn DataField="PW" HeaderText="Password"

SortExpression="PW" UniqueName="PW" HeaderStyle-HorizontalAlign="Center" ItemStyle-Width="175px">

</telerik:GridBoundColumn>

<telerik:GridBoundColumn DataField="SN" HeaderText="TCH#"

SortExpression="SN" UniqueName="SN" ItemStyle-HorizontalAlign="Center" HeaderStyle-HorizontalAlign="Center">

</telerik:GridBoundColumn>

<telerik:GridBoundColumn DataField="TG" HeaderText="Group"

SortExpression="TG" UniqueName="TG" ItemStyle-HorizontalAlign="Center" HeaderStyle-HorizontalAlign="Center">

</telerik:GridBoundColumn>

<telerik:GridTemplateColumn UniqueName="TemplateColumn">

<ItemTemplate>

<asp:Button ID="btn_ModifyPerms" runat="server" Text="Modify" onclick="btn_ModifyABIUser_Click" />

</ItemTemplate>

</telerik:GridTemplateColumn>

</Columns>

</MasterTableView>

</telerik:RadGrid>

<p>

</p>

<p>

</p>

</td>

</tr>

</table>

</td>

</tr>

</table>

</div>

<div id="footer">

</div>

<telerik:RadAjaxManager ID="RadAjaxManager1" runat="server" OnAjaxRequest="RadAjaxManager1_AjaxRequest">

<AjaxSettings>

<telerik:AjaxSetting AjaxControlID="RadAjaxManager1">

<UpdatedControls>

<telerik:AjaxUpdatedControl ControlID="rgd_ABIUser" />

</UpdatedControls>

</telerik:AjaxSetting>

<telerik:AjaxSetting AjaxControlID="rgd_ABIUser">

<UpdatedControls>

<telerik:AjaxUpdatedControl ControlID="rgd_ABIUser" />

</UpdatedControls>

</telerik:AjaxSetting>

</AjaxSettings>

</telerik:RadAjaxManager>

<asp:SqlDataSource ID="sds_AA_Menu" runat="server"

ConnectionString="<%$ ConnectionStrings:AeriesAdmin_ConnectionString %>"

SelectCommand="SELECT [DataFieldID], [DataFieldParentID], [DataTextField], [DataNavigateUrlField], [ImageURL], [UserLevel] FROM [AA_Menu] WHERE ([UserLevel] LIKE '%' + @UserLevel + '%')">

<SelectParameters>

<asp:SessionParameter Name="UserLevel" SessionField="RoleName" Type="String" />

</SelectParameters>

</asp:SqlDataSource>

<telerik:RadScriptManager ID="rsm_AeriesAdmin" Runat="server">

</telerik:RadScriptManager>

<telerik:RadFormDecorator ID="rfd_AeriesAdmin" Runat="server" Skin="WebBlue" />

<asp:SqlDataSource ID="sds_Database" runat="server"

ConnectionString="<%$ ConnectionStrings:AeriesAdmin_ConnectionString %>"

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

<asp:SqlDataSource ID="sds_Site" runat="server"

ConnectionString="<%$ ConnectionStrings:AeriesAdmin_ConnectionString %>"

SelectCommand="SELECT [IDSite], [Name] FROM [vw_ITC_Sites] ORDER BY [Name]">

</asp:SqlDataSource>

<br />

</form>

</body>

</html>

Parent Page VB

Imports System.Data

Imports System.Data.SqlClient

Imports Telerik.Web.UI

Imports System.CodeDom

Imports System.Web

Imports System.Web.Security

Imports System.Web.Security.Roles

Imports System.Web.Security.Membership

Imports System.Security

Imports System.Security.Principal.WindowsIdentity

Imports System.Drawing

Imports System.Threading

Partial Class _Default

Inherits System.Web.UI.Page

'Protected Sub RadPanelBar1_DataBound1(ByVal sender As Object, ByVal e As System.EventArgs) Handles rpb_AA_Menu.DataBound

' rpb_AA_Menu.Items(0).Expanded = True

' rpb_AA_Menu.Items(1).Expanded = True

'End Sub

'Protected Sub Page_PreLoad(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.PreLoad

' Dim ActiveDirID As String = "ActiveDirID"

'    Dim connectionString As String = DirectCast(ConfigurationManager.ConnectionStrings("AeriesAdmin_ConnectionString").ConnectionString, String)

'    Dim queryString As String = "SELECT ActiveDirID, RoleName, FullName, UserName FROM vw_ADSI WHERE UserName = @UserName"

' Using myConnection As New SqlConnection(connectionString)

' Dim myCommand As New SqlCommand(queryString, myConnection)

' myConnection.Open()

' myCommand.Parameters.AddWithValue("@UserName", User.Identity.Name)

' Dim MyReader As SqlDataReader = myCommand.ExecuteReader

' MyReader.Read()

' Session("UserName") = MyReader("UserName")

' Session("ActiveDirID") = MyReader("ActiveDirID")

' Session("RoleName") = MyReader("RoleName")

' myConnection.Close()

' End Using

' End Sub

'**********************************************************************

'Format combo boxes

'**********************************************************************

Protected Sub rcb_Site_SelectedIndexChanged(o As Object, e As Telerik.Web.UI.RadComboBoxSelectedIndexChangedEventArgs) Handles rcb_Site.SelectedIndexChanged

rgd_ABIUser.DataSource = GetUser()

rgd_ABIUser.DataBind()

End Sub

Private Function GetUser() As DataTable

Dim DatabaseName As String = rcb_Database.SelectedValue

Dim SC As String = rcb_Site.SelectedValue

Dim connectionString = New SqlConnection("server=DO-IT-AB\MSSQLAB;database=AeriesAdmin;UID=XXX;PWD=XXX;")

Dim command = New SqlCommand("aa_abi_users_by_site", connectionString)

command.CommandType = CommandType.StoredProcedure

command.Parameters.Add("@DBName", SqlDbType.VarChar).Value = DatabaseName

command.Parameters.Add("@SC", SqlDbType.VarChar).Value = SC

command.Connection.Open()

Dim myDataAdapter As New SqlDataAdapter(command)

Dim myDataSet As New DataSet

Dim dtData As New DataTable

myDataAdapter.Fill(myDataSet)

Return myDataSet.Tables(0)

command.Connection.Close()

End Function

Protected Sub btn_ModifyABIUser_Click(sender As Object, e As System.EventArgs)

Dim ID_item As GridDataItem = DirectCast(TryCast(sender, Button).NamingContainer, GridDataItem)

Dim ID As String = ID_item.OwnerTableView.DataKeyValues(ID_item.ItemIndex)("ID")

Session("ID") = ID

Session("DataBase") = rcb_Database.SelectedValue

Session("Site") = rcb_Site.SelectedValue

Dim windowManager As New RadWindowManager()

Dim RadWindow As New RadWindow()

RadWindow.NavigateUrl = "user_mod_modal.aspx"

RadWindow.ID = "RadWindow1"

RadWindow.VisibleOnPageLoad = True

RadWindow.Height = 375

RadWindow.Width = 550

RadWindow.Modal = True

windowManager.Windows.Add(RadWindow)

Me.form1.Controls.Add(RadWindow)

End Sub

Protected Sub RadAjaxManager1_AjaxRequest(ByVal sender As Object, ByVal e As Telerik.Web.UI.AjaxRequestEventArgs) Handles RadAjaxManager1.AjaxRequest

If e.Argument = "Rebind" Then

rgd_ABIUser.MasterTableView.SortExpressions.Clear()

rgd_ABIUser.MasterTableView.GroupByExpressions.Clear()

rgd_ABIUser.DataSource = GetUser()

rgd_ABIUser.Rebind()

ElseIf e.Argument = "RebindAndNavigate" Then

rgd_ABIUser.MasterTableView.SortExpressions.Clear()

rgd_ABIUser.MasterTableView.GroupByExpressions.Clear()

rgd_ABIUser.MasterTableView.CurrentPageIndex = rgd_ABIUser.MasterTableView.PageCount - 1

rgd_ABIUser.DataSource = GetUser()

rgd_ABIUser.Rebind()

End If

End Sub

End Class

Modal form ASPX

<%@ Page Language="VB" AutoEventWireup="false" CodeFile="user_mod_modal.aspx.vb" Inherits="_Default" EnableEventValidation="false" %>

<%@ Register assembly="Telerik.Web.UI" namespace="Telerik.Web.UI" tagprefix="telerik" %>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html xmlns="http://www.w3.org/1999/xhtml">

<head id="Head1" runat="server">

<title>Aeries Global System Manager</title>

<link rel="stylesheet" type="text/css" href="~/includes/ITC_Main.css" />

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

<script type="text/javascript">

function CloseAndRebind(args) {

GetRadWindow().BrowserWindow.refreshGrid(args);

GetRadWindow().close();

}

function GetRadWindow() {

var oWindow = null;

if (window.radWindow) oWindow = window.radWindow; //Will work in Moz in all cases, including clasic dialog

else if (window.frameElement.radWindow) oWindow = window.frameElement.radWindow; //IE (and Moz as well)

return oWindow;

}

function CancelEdit() {

GetRadWindow().close();

}

</script>

</telerik:RadCodeBlock>

</head>

<body>

<form id="form1" runat="server">

<div id="header">

<table cellpadding="0" cellspacing="0" style="width: 100%; height: 40px;">

<tr>

<td style="width: 213px">

<img alt="" src="../../images/aalogo.gif" /></td>

<td style="text-align: right">

<img alt="" src="../../images/aatusdlogo.gif" /></td>

</tr>

</table>

</div>

<div id="subheader">

</div>

<div>

<table cellpadding="0" cellspacing="0" style="width: 100%">

<tr>

<td valign="top"

style="background-color: #FFFFFF; border-bottom-style: solid; border-bottom-width: thin; border-bottom-color: #000000;">

<table cellpadding="0" cellspacing="0" style="width: 100%">

<tr>

<td style="padding: 10px">

<table align="center" cellpadding="0" cellspacing="0">

<tr>

<td style="font-size: large; font-weight: bold; color: #7698BA; text-align: center">

Modify ABI User Details</td>

</tr>

<tr>

<td>

<asp:Label ID="Label1" runat="server" Text="Label"

style="color: #FFFFFF"></asp:Label>

</td>

</tr>

<tr>

<td>

<telerik:RadGrid ID="rgd_ABIUser" runat="server" GridLines="None" AutoGenerateColumns="False" Width="400px">

<MasterTableView DataKeyNames="ID">

<RowIndicatorColumn>

<HeaderStyle Width="20px"></HeaderStyle>

</RowIndicatorColumn>

<ExpandCollapseColumn>

<HeaderStyle Width="20px"></HeaderStyle>

</ExpandCollapseColumn>

<Columns>

<telerik:GridTemplateColumn DataField="SC" HeaderText="Site" SortExpression="SC" UniqueName="SC">

<ItemTemplate>

<asp:Label ID="Label2" runat="server" Text='<%# Bind("SC") %>'></asp:Label>

</ItemTemplate>

</telerik:GridTemplateColumn>

<telerik:GridTemplateColumn DataField="ID" HeaderText="User" SortExpression="ID" UniqueName="ID">

<ItemTemplate>

<asp:Label ID="Label3" runat="server" Text='<%# Bind("ID") %>'></asp:Label>

</ItemTemplate>

</telerik:GridTemplateColumn>

<telerik:GridTemplateColumn DataField="PW" HeaderText="Password" SortExpression="PW" UniqueName="PW">

<ItemTemplate>

<asp:TextBox ID="tbx_Password" Text='<%# Bind("PW") %>' runat="server"></asp:TextBox>

</ItemTemplate>

</telerik:GridTemplateColumn>

<telerik:GridTemplateColumn DataField="SN" HeaderText="TCH#" SortExpression="SN" UniqueName="SN" >

<ItemTemplate>

<asp:TextBox ID="tbx_TchNo" Text='<%# Bind("SN") %>' runat="server" style="text-align:center;" Width="30px"></asp:TextBox>

</ItemTemplate>

</telerik:GridTemplateColumn>

<telerik:GridTemplateColumn DataField="TG" HeaderText="Group" SortExpression="TG" UniqueName="TG">

<ItemTemplate>

<asp:TextBox ID="tbx_TG" Text='<%# Bind("TG") %>' runat="server" style="text-align:center;" Width="20px"></asp:TextBox>

</ItemTemplate>

</telerik:GridTemplateColumn>

</Columns>

</MasterTableView>

</telerik:RadGrid>

</td>

</tr>

<tr>

<td style="text-align: center">

<asp:Button ID="btn_UpdateUser" OnClick="btn_UpdateUser_Click" runat="server" Text="Update" />

</td>

</tr>

</table>

<br />

</td>

</tr>

</table>

</td>

</tr>

</table>

</div>

<div id="footer">

</div>

<telerik:RadScriptManager ID="rsm_AeriesAdmin" Runat="server">

</telerik:RadScriptManager>

<br />

</form>

</body>

</html>

Modal form VB

Imports System.Data

Imports System.Data.SqlClient

Imports Telerik.Web.UI

Imports System.CodeDom

Imports System.Web

Imports System.Web.Security

Imports System.Web.Security.Roles

Imports System.Web.Security.Membership

Imports System.Security

Imports System.Security.Principal.WindowsIdentity

Partial Class _Default

Inherits System.Web.UI.Page

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

If Not Page.IsPostBack Then

rgd_ABIUser.DataSource = GetUser()

rgd_ABIUser.DataBind()

End If

End Sub

Private Function GetUser() As DataTable

Dim DatabaseName = Session("DataBase")

Dim Site = Session("Site")

Dim IDUser As String = Session("ID")

Dim connectionString = New SqlConnection("server=DO-IT-AB\MSSQLAB;database=AeriesAdmin;UID=XXX;PWD=XXX;")

Dim command = New SqlCommand("aa_abi_users_by_id", connectionString)

command.CommandType = CommandType.StoredProcedure

command.Parameters.Add("@DBName", SqlDbType.VarChar).Value = DatabaseName

command.Parameters.Add("@ID", SqlDbType.VarChar).Value = IDUser

command.Connection.Open()

Dim myDataAdapter As New SqlDataAdapter(command)

Dim myDataSet As New DataSet

Dim dtData As New DataTable

myDataAdapter.Fill(myDataSet)

Return myDataSet.Tables(0)

command.Connection.Close()

End Function

Protected Sub btn_UpdateUser_Click(ByVal sender As Object, ByVal e As System.EventArgs)

For Each item As GridDataItem In rgd_ABIUser.MasterTableView.Items

Dim tbx_Password As TextBox = DirectCast(item("PW").FindControl("tbx_Password"), TextBox)

Dim PW As String = tbx_Password.Text

Dim tbx_TchNo As TextBox = DirectCast(item("SN").FindControl("tbx_TchNo"), TextBox)

Dim SN As String = tbx_TchNo.Text

Dim tbx_TG As TextBox = DirectCast(item("TG").FindControl("tbx_TG"), TextBox)

Dim TG As String = tbx_TG.Text

Dim DatabaseName As String = Session("DataBase")

Dim Val = Session("Site")

Dim Site As Integer = Convert.ToInt32(Val)

Dim IDUser As String = Session("ID")

Dim connectionString = New SqlConnection("server=DO-IT-AB\MSSQLAB;database=AeriesAdmin;UID=XXX;PWD=XXX;")

Dim command = New SqlCommand("aa_abi_users_update", connectionString)

command.CommandType = CommandType.StoredProcedure

command.Parameters.Add("@DBName", SqlDbType.VarChar).Value = DatabaseName

command.Parameters.Add("@IDSite", SqlDbType.Int).Value = Site

command.Parameters.Add("@IDUser", SqlDbType.VarChar).Value = IDUser

command.Parameters.Add("@PW", SqlDbType.VarChar).Value = PW

command.Parameters.Add("@SN", SqlDbType.VarChar).Value = SN

command.Parameters.Add("@TG", SqlDbType.VarChar).Value = TG

command.Connection.Open()

command.ExecuteNonQuery()

command.Connection.Close()

Next

If Session("DataBase") IsNot Nothing Then

Session.Remove("DataBase")

End If

If Session("Site") IsNot Nothing Then

Session.Remove("Site")

End If

If Session("IDUser") IsNot Nothing Then

Session.Remove("IDUser")

End If

Label1.Text = "<script type='text/javascript'>CloseAndRebind()</" + "script>"

End Sub

End Class

Grid

asked on 18 Mar 2011