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

Unable to cast object of type in rad grid

1 Answer 170 Views
Grid
This is a migrated thread and some comments may be shown as answers.
nallamani
Top achievements
Rank 1
nallamani asked on 15 Oct 2008, 01:01 PM
Hi
   I am having  issue in my Rad Grid.When Try to add the new item using command item template.

I am getting the error message "Unable to cast object of type 'Telerik.Web.UI.GridCommanditem' to 'Telerik.Web.UI.GridEditableItem' "

When trying to add the new item or user from command item template.

Need help

My client side code is

<

telerik:RadGrid ID="RadGrid1" CssClass="RadGrid" EnableTheming="False" EnableEmbeddedBaseStylesheet="False" AllowSorting="True" AllowMultiRowSelection="true" AllowMultiRowEdit="true"

 

 

runat="server" Width="98%" AllowPaging="True" AutoGenerateColumns="False" PageSize="5" AllowAutomaticDeletes="True" >

 

 

<ItemStyle CssClass="RadGridItem"></ItemStyle>

 

 

<HeaderStyle CssClass="RadGridHeader"></HeaderStyle>

 

 

<PagerStyle Mode="Slider" alwaysvisible="True" pagebuttoncount="5" CssClass="RadGridPager"></PagerStyle>

 

 

<ClientSettings EnablePostBackOnRowClick="false">

 

 

<Selecting AllowRowSelect="true" />

 

 

</ClientSettings>

 

 

<MasterTableView CommandItemDisplay="Top" DataKeyNames="SUserID" EditMode="InPlace" AutoGenerateColumns="False" Width="100%">

 

 

<CommandItemTemplate>

 

 

<div style="padding:10px 0px;" class="newtd">

 

 

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

 

 

<tr>

 

 

<td style="padding-left:5px"> &nbsp;Filter : &nbsp;</td>

 

 

<td> <asp:TextBox autocomplete="off" ID="txtSearch" runat="server" OnTextChanged="txtSearch_TextChanged"></asp:TextBox>&nbsp;</td>

 

 

<td style="padding-left:40px"><telerik:RadCombobox ID="rcbFieldName" runat="server" Skin="WebBlue" AllowCustomText="True" width="140px" EmptyMessage="-------Select-------" CausesValidation="false">

 

 

<Items>

 

 

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

 

 

</Items>

 

 

</telerik:RadCombobox>&nbsp;&nbsp;</td>

 

 

<td align ="left" style="padding-right:40px">

 

 

<asp:ImageButton ID="btnSearch" runat="server" CommandName="btnSearch" ImageUrl="~/Images/icons/Zoom.gif" ImageAlign="Bottom" CausesValidation="false"/>

 

 

</td>

 

 

<td align="right" style="padding:10px;" valign="middle">

 

 

<asp:LinkButton Style="vertical-align: bottom" ID="btnEditSelected" runat="server"

 

 

CommandName="EditSelected" CausesValidation="false" Visible='<%# RadGrid1.EditIndexes.Count = 0 %>' ><img style="border:0px;vertical-align:middle;" alt="" src="../Images/icons/Edit.gif" /> Edit Selected PowerAdmin</asp:LinkButton>

 

 

<asp:LinkButton ID="btnUpdateEdited" runat="server" CommandName="UpdateEdited" Visible='<%# RadGrid1.EditIndexes.Count > 0 %>'><img style="border:0px;vertical-align:middle;" alt="" src="../Images/icons/Save.gif" /> Update PowerAdmin</asp:LinkButton>

 

 

&nbsp;

 

 

<asp:LinkButton ID="btnInsert" runat="server" CommandName="InitInsert" Visible='<%# Not RadGrid1.MasterTableView.IsItemInserted %>'><img style="border:0px;vertical-align:middle;" alt="" src="../Images/icons/Add.gif" /> Add new PowerAdmin</asp:LinkButton>&nbsp;

 

 

<asp:LinkButton ID="LinkButton3" runat="server" CommandName="PerformInsert" Visible='<%# RadGrid1.MasterTableView.IsItemInserted %>'><img style="border:0px;vertical-align:middle;" alt="" src="../Images/icons/Add.gif" /> Add this PowerAdmin</asp:LinkButton>&nbsp;

 

 

<asp:LinkButton ID="btnCancel" runat="server" CommandName="CancelAll" CausesValidation="false" Visible='<%# RadGrid1.EditIndexes.Count > 0 Or RadGrid1.MasterTableView.IsItemInserted %>'><img style="border:0px;vertical-align:middle;" alt="" src="../Images/icons/Cancel.gif" /> Cancel</asp:LinkButton>

 

 

&nbsp;&nbsp;

 

 

<asp:LinkButton ID="LinkButton1" OnClientClick="javascript:return confirm('Are You Sure ?');"

 

 

runat="server" CommandName="DeleteSelected" CausesValidation="false" ><img style="border:0px;vertical-align:middle;" alt="" src="../Images/icons/Delet.gif" /> Delete Selected PowerAdmin</asp:LinkButton>

 

 

&nbsp;&nbsp;&nbsp;

 

 

<asp:LinkButton ID="LinkButton4" runat="server" CommandName="RebindGrid"><img style="border:0px;vertical-align:middle;" alt="" src="../Images/icons/Refresh.gif" /> Refresh </asp:LinkButton>

 

 

</td>

 

 

</tr>

 

 

</table>

 

 

</div>

 

 

</CommandItemTemplate>

 

 

<Columns>

 

 

 

<telerik:GridTemplateColumn UniqueName="SrlNo" AllowFiltering="False" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="2%" >

 

 

<ItemTemplate >

 

 

<asp:Label ID="lblSrlNo" runat="server" />&nbsp;&nbsp;

 

 

</ItemTemplate>

 

 

</telerik:GridTemplateColumn>

 

 

<telerik:GridClientSelectColumn HeaderStyle-Width="3%" />

 

 

<telerik:GridBoundColumn DataField="SUserID" UniqueName="SUserID" Visible="False" ReadOnly="True"></telerik:GridBoundColumn>

 

 

<telerik:GridBoundColumn DataField="Email" UniqueName="Email" SortExpression="Email" HeaderText="Email" ShowSortIcon="False" >

 

 

<ItemStyle HorizontalAlign="Left" />

 

 

</telerik:GridBoundColumn>

 

 

 

<telerik:GridTemplateColumn UniqueName="Password" HeaderText="Password" >

 

 

<ItemTemplate>

 

 

<asp:HyperLink ID="hplReset" style="cursor:pointer" runat="server" OnClick='<%# "fn_Change(this," & Eval("SUserId","{0:#}") & ")" %>'

 

 

Text="Reset">

 

 

</asp:HyperLink>

 

 

</ItemTemplate>

 

 

<EditItemTemplate >

 

 

 

<asp:HyperLink ID="hplReset1" style="cursor:pointer" runat="server" OnClick='<%# "fn_Change(this," & Eval("SUserId","{0:#}") & ")" %>' Text="Reset"></asp:HyperLink>

 

 

<asp:Label ID="lblpwd" runat="server" Visible="false" Text="Enter Password" ></asp:Label><font color="red" >*</font>:&nbsp;<asp:TextBox ID="txtpwd" runat="server" Visible="false"></asp:TextBox>&nbsp;

 

 

<asp:RequiredFieldValidator ID="RequiredFieldValidator2"

 

 

ControlToValidate="txtpwd" ErrorMessage="Enter Password" runat="server" ></asp:RequiredFieldValidator>

 

 

<asp:Label ID="lblrepwd" runat="server" Visible="false" Text="Retype Password" ></asp:Label><font color="red" >*</font>:&nbsp;<asp:TextBox ID="txtrepwd" runat="server" Visible="false"></asp:TextBox>

 

 

<asp:RequiredFieldValidator ID="reqretypepassword"

 

 

ControlToValidate="txtrepwd" ErrorMessage="Re-Type Password" runat="server" ></asp:RequiredFieldValidator>

 

 

</EditItemTemplate>

 

 

<ItemStyle HorizontalAlign="Left" />

 

 

</telerik:GridTemplateColumn>

 

 

<telerik:GridTemplateColumn DataField="UserStatus" UniqueName="UserStatus" HeaderButtonType="TextButton" HeaderText="UserStatus" ><ItemTemplate>

 

 

<asp:Label ID="lblStatus" runat="server" text='<%# IIf(Trim(""& Eval("UserStatus"))= 0,"Enabled","Disabled") %>' />

 

 

</ItemTemplate>

 

 

<EditItemTemplate >

 

 

<div id="checkstatus">

 

 

<asp:RadioButton GroupName="grpuserstatus" runat="server" ID="checkDisable" text="Disabled" Checked='<%# IIf(Val(""& Eval("UserStatus"))= 0,"False","True") %>'/>

 

 

<asp:RadioButton GroupName="grpuserstatus" runat="server" ID="checkEnable" text="Enabled" Checked='<%# IIf(Val(""& Eval("UserStatus"))= 0,"True","False") %>'/>

 

 

</div>

 

 

</EditItemTemplate>

 

 

<ItemStyle HorizontalAlign="Left" />

 

 

</telerik:GridTemplateColumn>

 

 

<telerik:GridEditCommandColumn UniqueName="Editcolumn"/>

 

 

 

</Columns>

 

 

<EditFormSettings >

 

 

<FormTableItemStyle Wrap="False"></FormTableItemStyle>

 

 

<FormCaptionStyle CssClass="RadGridHeader"></FormCaptionStyle>

 

 

<FormMainTableStyle BackColor="White" GridLines="Horizontal" CellPadding="3" Width="100%" CellSpacing="0"></FormMainTableStyle>

 

 

<FormTableStyle CellSpacing="0" CellPadding="2" CssClass="module" Height="110px" BackColor="White" />

 

 

<FormTableAlternatingItemStyle Wrap="False"></FormTableAlternatingItemStyle>

 

 

<EditColumn CancelText="Cancel edit" InsertText="Insert Order" UniqueName="EditCommandColumn1" ButtonType="ImageButton" UpdateText="Update record">

 

 

</EditColumn>

 

 

<FormTableButtonRowStyle HorizontalAlign="Right" CssClass="EditFormButtonRow"></FormTableButtonRowStyle>

 

 

<FormTemplate>

 

 

<table cellpadding="3" cellspacing="0" width="98%" border="0">

 

 

<tr><td style="height:20px;"></td></tr>

 

 

<tr>

 

 

<td align="right" width="40%" >Email&nbsp;<font color="red" >*</font>:&nbsp;</td>

 

 

<td align="left" width="60%" ><asp:TextBox ID="txtEmail" runat="server" ></asp:TextBox>

 

 

<asp:RequiredFieldValidator ID="RequiredFieldValidator1" runat="server" ControlToValidate="txtEmail"

 

 

Display="Dynamic" CssClass="errormsg" ErrorMessage="Enter Email"></asp:RequiredFieldValidator><asp:RegularExpressionValidator ID="RegularExpressionValidator1" runat="server" ControlToValidate="txtEmail"

 

 

Display="Dynamic" CssClass="errormsg" ErrorMessage="Invalid Email" ValidationExpression="\w+([-+.']\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*"></asp:RegularExpressionValidator></td>

 

 

</tr>

 

 

<tr><td>

 

 

 

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

 

 

<tr><td align="right" width="20%">Password&nbsp;<font color="red" >*</font>:&nbsp;</td>

 

 

<td align="left" width="80%" ><asp:TextBox ID="txtPassword" TextMode="Password" runat="server" MaxLength="10" ></asp:TextBox><asp:RequiredFieldValidator Enabled="false"

 

 

ID="reqPassword" runat="server" CssClass="errormsg" ControlToValidate="txtPassword" Display="Dynamic" ErrorMessage="Enter Password"></asp:RequiredFieldValidator><asp:RegularExpressionValidator Enabled="false"

 

 

ID="regPassword" runat="server" ControlToValidate="txtPassword" CssClass="errormsg" Display="Dynamic" ErrorMessage="Invalid Password" ValidationExpression="\w{6,10}"></asp:RegularExpressionValidator></td></tr>

 

 

<tr><td align="right" width="20%">Retype Password&nbsp;<font color="red" >*</font>:&nbsp;</td>

 

 

<td align="left" width="80%" ><asp:TextBox ID="txtRePassword" TextMode="Password" runat="server" MaxLength="10" ></asp:TextBox><asp:RequiredFieldValidator Enabled="false"

 

 

ID="reqRePassword" runat="server" ControlToValidate="txtRePassword" CssClass="errormsg" Display="Dynamic" ErrorMessage="Enter Re-Type Password"></asp:RequiredFieldValidator><asp:RegularExpressionValidator Enabled="false"

 

 

ID="regRePassword" runat="server" ControlToValidate="txtRePassword" CssClass="errormsg" Display="Dynamic" ErrorMessage="Invalid Re-Type Password" ValidationExpression="\w{6,10}"></asp:RegularExpressionValidator><asp:CompareValidator

 

 

ID="cmpPassword" runat="server" ControlToCompare="txtPassword" ControlToValidate="txtRePassword" CssClass="errormsg" Display="Dynamic" ErrorMessage="Password Mismatch" Enabled="false" ></asp:CompareValidator></td></tr>

 

 

</table>

 

 

</td>

 

 

</tr>

 

 

</table>

 

 

</FormTemplate>

 

 

</EditFormSettings>

 

 

<ExpandCollapseColumn>

 

 

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

 

 

</ExpandCollapseColumn>

 

 

<RowIndicatorColumn>

 

 

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

 

 

</RowIndicatorColumn>

 

 

</MasterTableView>

 

 

<FilterMenu EnableTheming="True" Skin="WebBlue" enableembeddedbasestylesheet="False">

 

 

<CollapseAnimation Type="OutQuint" Duration="200"></CollapseAnimation>

 

 

</FilterMenu>

 

 

<AlternatingItemStyle CssClass="RadGridItem"></AlternatingItemStyle>

 

 

<SortingSettings SortToolTip="Click here to sort Email"></SortingSettings>

 

 

</telerik:RadGrid>

 

Server side code is :

Imports

Telerik.Web.UI

 

Partial

Class Clients_ManagePAdmin

 

 

Inherits System.Web.UI.Page

 

 

Dim oDB As New CMSDatabase

 

 

Dim SqlQry As String = ""

 

 

Protected Sub Page_PreInit(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.PreInit

 

 

Dim UserTheme As MyThemes = Val(Session("@Theme"))

 

 

Me.Theme = UserTheme.ToString

 

 

Dim RadSkin As String = Replace(UserTheme.ToString, "_", "")

 

RadGrid1.Skin = RadSkin

 

'rcbFieldName.Skin = RadSkin

 

 

End Sub

 

 

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

 

Ajax.Utility.RegisterTypeForAjax(

Me.GetType)

 

 

If Not Page.IsPostBack Then

 

 

Select Case UCase(Request.QueryString("from"))

 

 

Case "ADD"

 

lblMsg.Text = library.GetXMLMessage(8)

 

Case "EDIT"

 

lblMsg.Text = library.GetXMLMessage(9)

 

Case "DELETE"

 

lblMsg.Text = library.GetXMLMessage(10)

 

End Select

 

 

End If

 

 

End Sub

 

<Ajax.JavascriptMethod()> _

 

Function updaterecords(ByVal Passs, ByVal SUserId) As Boolean

 

 

Dim SqlQry As String = "UPDATE siteusers set password='" & NDCryption.Encrypt(Passs) & "' where SUserId = " & SUserId & ""

 

 

Return oDB.ExecuteNonQuery(SqlQry)

 

 

End Function

 

 

Protected Sub RadGrid1_NeedDataSource(ByVal source As Object, ByVal e As Telerik.Web.UI.GridNeedDataSourceEventArgs) Handles RadGrid1.NeedDataSource

 

 

Dim sqlqry As String

 

 

Dim DT As New DataTable

 

sqlqry =

"select SUserId,Email,Password,UserStatus from siteusers where usertype= " & UserType.PowerAdmin

 

 

'sqlqry = "select SUserId,Email,Password, case UserStatus when 0 then 'true' else 'false' end as UserStatus from siteusers where usertype= " & UserType.PowerAdmin

 

 

If oDB.IsExist(sqlqry) = True Then

 

DT = oDB.GetDataTable(sqlqry)

RadGrid1.Visible =

True

 

RadGrid1.DataSource = DT

 

Else

 

RadGrid1.Visible =

False

 

 

End If

 

 

End Sub

 

 

Protected Sub RadGrid1_ItemDataBound(ByVal sender As Object, ByVal e As Telerik.Web.UI.GridItemEventArgs) Handles RadGrid1.ItemDataBound

 

 

If e.Item.ItemType = GridItemType.AlternatingItem Or e.Item.ItemType = Telerik.Web.UI.GridItemType.Item Then

 

 

Dim lbl As Label

 

lbl =

CType(e.Item.FindControl("lblSrlNo"), Label)

 

lbl.Text = e.Item.ItemIndex + 1

 

Try

 

 

Dim lblpass As Label

 

lblpass =

CType(e.Item.FindControl("Password"), Label)

 

lblpass.Text = NDCryption.Decrypt(lblpass.Text)

 

If Trim(lblpass.Text) <> "" Then

 

lblpass.Text =

"".PadLeft(Len(lblpass.Text), "*")

 

 

End If

 

 

'Response.Write(e.Item.Cells(7).Text)

 

 

'e.Item.Cells(7).Style.Add("display", "none")

 

 

Catch ex As Exception

 

 

End Try

 

 

End If

 

 

If TypeOf e.Item Is GridEditFormItem AndAlso e.Item.IsInEditMode Then

 

 

 

 

End If

 

 

End Sub

 

 

Private Sub RadGrid1_SortCommand(ByVal source As Object, ByVal e As Telerik.Web.UI.GridSortCommandEventArgs) Handles RadGrid1.SortCommand

 

 

If e.Item.OwnerTableView.DataMember = "Orders" And e.SortExpression = "Email" Then

 

e.Canceled =

True

 

 

Dim expression As New GridSortExpression()

 

expression.FieldName =

"Email"

 

 

If e.Item.OwnerTableView.SortExpressions.Count = 0 OrElse e.Item.OwnerTableView.SortExpressions(0).FieldName <> e.SortExpression Then

 

expression.SortOrder = GridSortOrder.Descending

 

ElseIf e.Item.OwnerTableView.SortExpressions(0).SortOrder = GridSortOrder.Descending Then

 

expression.SortOrder = GridSortOrder.Ascending

 

ElseIf e.Item.OwnerTableView.SortExpressions(0).SortOrder = GridSortOrder.Ascending Then

 

expression.SortOrder = GridSortOrder.None

 

End If

 

e.Item.OwnerTableView.SortExpressions.AddSortExpression(expression)

e.Item.OwnerTableView.Rebind()

 

End If

 

 

End Sub 'RadGrid1_SortCommand

 

 

Protected Sub txtSearch_TextChanged(ByVal sender As Object, ByVal e As EventArgs)

 

 

Dim txt As TextBox = TryCast(DirectCast(sender, TextBox), TextBox)

 

 

Dim list As RadComboBox = DirectCast(((txt.NamingContainer).FindControl("rcbFieldName")), RadComboBox)

 

 

Dim [option] As String

 

 

If list.SelectedValue = "SUserId" OrElse list.SelectedValue = "UserStatus" Then

 

[option] =

" = "

 

 

Else

 

[option] =

" LIKE "

 

 

End If

 

 

Dim filterExpression As String

 

 

If [option] = " = " Then

 

filterExpression =

"(" + list.SelectedValue + [option] + txt.Text + ")"

 

 

Else

 

filterExpression =

"(" + list.SelectedValue + [option] + "'" + txt.Text + "%'" + ")"

 

 

End If

 

RadGrid1.MasterTableView.FilterExpression = filterExpression

RadGrid1.MasterTableView.Rebind()

 

End Sub

 

 

Protected Sub RadGrid1_UpdateCommand(ByVal source As Object, ByVal e As Telerik.Web.UI.GridCommandEventArgs) Handles RadGrid1.UpdateCommand

 

 

Dim item As GridEditableItem = TryCast(e.Item, GridEditableItem)

 

 

Dim editor As GridTextBoxColumnEditor = DirectCast(item.EditManager.GetColumnEditor("Email"), GridTextBoxColumnEditor)

 

 

Dim txtsid As TextBox

 

txtsid =

CType(e.Item.OwnerTableView.Items(e.Item.ItemIndex)("SUserID").Controls(0), TextBox)

 

 

Dim radioEnable = CType(item.FindControl("checkEnable"), RadioButton).Checked

 

SqlQry =

"select Email from SiteUsers where Email='" & editor.TextBoxControl.Text & "' and SuserId <> " & txtsid.Text

 

 

If oDB.ExecuteScaler(SqlQry) = "" Then

 

SqlQry =

"Update SiteUsers Set Email='" & editor.TextBoxControl.Text & "',userstatus=" & IIf(radioEnable = True, 0, 1) & " where SUserId = " & txtsid.Text

 

oDB.ExecuteNonQuery(SqlQry)

 

Else

 

lblMsg.Text =

"Email Already Exists"

 

 

End If

 

 

End Sub

 

 

Protected Sub RadGrid1_DeleteCommand(ByVal source As Object, ByVal e As Telerik.Web.UI.GridCommandEventArgs) Handles RadGrid1.DeleteCommand

 

 

Dim item As GridDataItem = DirectCast(e.Item, GridDataItem)

 

 

Try

 

hidUpdateuser.Value =

""

 

SqlQry =

"DELETE from SiteUsers where SuserId='" & e.Item.Cells(4).Text & "'"

 

oDB.ExecuteNonQuery(SqlQry)

hidUpdateuser.Value =

"Deleted"

 

 

Catch ex As Exception

 

RadGrid1.Controls.Add(

New LiteralControl("Unable to delete Employee. Reason: " + ex.Message))

 

e.Canceled =

True

 

 

End Try

 

 

End Sub

 

#

Region "******************** Ajax Function *****************************"

 

<Ajax.JavascriptMethod()> _

 

Function IsEmailExist(ByVal Email As String) As Boolean

 

 

Dim SqlQry As String = ""

 

SqlQry =

"Select * from SiteUsers where UPPER(Email) like '" & UCase(Email) & "'"

 

IsEmailExist = oDb.IsExist(SqlQry)

 

End Function

 

#

End Region

 

 

'Protected Sub btnAdd_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnAdd.Click

 

 

' If Page.IsValid Then

 

 

' Dim SqlQry As String = ""

 

 

' Dim Password As String = ""

 

 

' Dim SuserId As String = ""

 

 

' Password = NDCryption.Encrypt(txtPassword.Text)

 

 

' SqlQry = "insert into SiteUsers([ClientID], [Email], [Password], [UserStatus],[UserType],[Authenticate]) values (0,'" & txtEmail.Text.Trim & "','" & NDCryption.Encrypt(txtPassword.Text) & "',0," & UserType.PowerAdmin & "," & UserAuthenticate.CMSSite & ")"

 

 

' oDB.ExecuteNonQuery(SqlQry)

 

 

' Response.Redirect("ManagePAdmin.aspx?from=add&CID=" & Request.QueryString("CID") & "&SID=" & Request.QueryString("SID") & "&PID=" & Request.QueryString("PID"))

 

 

' End If

 

 

'End Sub

 

 

Protected Sub RadGrid1_PageIndexChanged(ByVal source As Object, ByVal e As Telerik.Web.UI.GridPageChangedEventArgs) Handles RadGrid1.PageIndexChanged

 

 

'e.Canceled = True

 

 

End Sub

 

 

 

Protected Sub RadGrid1_InsertCommand(ByVal source As Object, ByVal e As Telerik.Web.UI.GridCommandEventArgs) Handles RadGrid1.InsertCommand

 

 

Dim SqlQry As String = ""

 

 

Dim editedItem As GridEditableItem = CType(e.Item, GridEditableItem)

 

 

Dim txtEmail As GridTextBoxColumnEditor = DirectCast(editedItem.EditManager.GetColumnEditor("Email"), GridTextBoxColumnEditor)

 

 

Dim txtPassword As TextBox = CType(editedItem.FindControl("txtpwd"), TextBox)

 

 

'Password = NDCryption.Encrypt(txtPassword.Text)

 

SqlQry =

"insert into SiteUsers([ClientID], [Email], [Password], [UserStatus],[UserType],[Authenticate]) values (0,'" & txtEmail.TextBoxControl.Text.Trim & "','" & NDCryption.Encrypt(txtPassword.Text) & "'," & UserStatue.Enabled & "," & UserType.PowerAdmin & "," & UserAuthenticate.CMSSite & ")"

 

oDB.ExecuteNonQuery(SqlQry)

 

End Sub

 

 

 

Private 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 dataItem As GridDataItem = CType(e.Item, GridDataItem)

 

 

 

ElseIf (TypeOf e.Item Is GridEditableItem AndAlso e.Item.IsInEditMode) Then

 

 

Dim editedItem As GridEditableItem = CType(e.Item, GridEditableItem)

 

 

Dim editor As GridTextBoxColumnEditor = DirectCast(editedItem.EditManager.GetColumnEditor("Email"), GridTextBoxColumnEditor)

 

 

Dim cell As TableCell = DirectCast(editor.TextBoxControl.Parent, TableCell)

 

 

Dim validator As New RequiredFieldValidator

 

editor.TextBoxControl.ID =

"Email"

 

validator.ControlToValidate = editor.TextBoxControl.ID

validator.ErrorMessage =

"Enter Email Address"

 

 

 

 

 

'LiteralControl()

 

cell.Controls.Add(validator)

 

End If

 

 

End Sub

 

 

 

Protected Sub RadGrid1_ItemCommand(ByVal source As Object, ByVal e As Telerik.Web.UI.GridCommandEventArgs) Handles RadGrid1.ItemCommand

 

 

Select Case e.CommandName

 

 

Case RadGrid.InitInsertCommandName

 

e.Canceled =

True

 

e.Item.OwnerTableView.InsertItem()

 

Dim Grid As RadGrid = CType(source, RadGrid)

 

Grid.MasterTableView.ClearEditItems()

 

Dim insertedItem As GridEditableItem = e.Item.OwnerTableView.GetInsertItem()

 

 

Dim txtPassword As TextBox = CType(insertedItem.FindControl("txtpwd"), TextBox)

 

 

Dim txtRePassword As TextBox = CType(insertedItem.FindControl("txtrepwd"), TextBox)

 

 

Dim lblrepwd As Label = CType(insertedItem.FindControl("lblrepwd"), Label)

 

 

Dim lblpwd As Label = CType(insertedItem.FindControl("lblpwd"), Label)

 

 

Dim hplReset1 As HyperLink = CType(insertedItem.FindControl("hplReset1"), HyperLink)

 

hplReset1.Visible =

False

 

lblpwd.Visible =

True

 

lblrepwd.Visible =

True

 

txtPassword.Visible =

True

 

txtRePassword.Visible =

True

 

txtPassword.TextMode = TextBoxMode.Password

txtRePassword.TextMode = TextBoxMode.Password

 

Case RadGrid.EditSelectedCommandName

 

e.Item.OwnerTableView.IsItemInserted =

False

 

 

End Select

 

 

End Sub

 

End

Class

 





1 Answer, 1 is accepted

Sort by
0
Iana Tsolova
Telerik team
answered on 16 Oct 2008, 02:57 PM
Hi nallamani,

Can you debug your code and specify when and on which line of your code fails?

Regards,
Iana
the Telerik team

Check out Telerik Trainer, the state of the art learning tool for Telerik products.
Tags
Grid
Asked by
nallamani
Top achievements
Rank 1
Answers by
Iana Tsolova
Telerik team
Share this question
or