or
PrivateSubgrdLogins_DeleteCommand(senderAsObject, eAsTelerik.Web.UI.GridCommandEventArgs)HandlesgrdLogins.DeleteCommandDimitemAsGridDataItem =DirectCast(e.Item, GridDataItem)DimLoginIDAsInteger=CInt(item.OwnerTableView.DataKeyValues(item.ItemIndex)("LoginKey").ToString)gUserData.DeleteUserNTCredential(LoginID)grdLogins.Rebind()EndSubPrivateSubgrdLogins_InsertCommand(senderAsObject, eAsTelerik.Web.UI.GridCommandEventArgs)HandlesgrdLogins.InsertCommandDiminsertedItemAsGridEditFormInsertItem =DirectCast(e.Item, GridEditFormInsertItem)DimUserIDAsInteger= GetSelectedUser()DimLoginAsString= (TryCast(insertedItem("NTLogin").Controls(0), TextBox)).TextgUserData.AddUserNTCredential(UserTree.SelectedValue, Login, GetEditorInfo)grdLogins.Rebind()EndSubPrivateSubgrdLogins_UpdateCommand(senderAsObject, eAsTelerik.Web.UI.GridCommandEventArgs)HandlesgrdLogins.UpdateCommandDimeditedItemAsGridEditableItem = TryCast(e.Item, GridEditableItem)DimLoginIDAsInteger=CInt(editedItem.OwnerTableView.DataKeyValues(editedItem.ItemIndex)("LoginKey").ToString)DimLoginAsString= (TryCast(editedItem("NTLogin").Controls(0), TextBox)).TextDimUserIDAsInteger=CInt(GetSelectedUser())gUserData.UpdateUserNTCredential(UserID, LoginID, Login, GetEditorInfo)grdLogins.Rebind()EndSubPrivateSubgrdLogins_NeedDataSource(senderAsObject, eAsTelerik.Web.UI.GridNeedDataSourceEventArgs)HandlesgrdLogins.NeedDataSourceDimUserIDAsIntegerIfGetSelectedUser()ThenUserID = GetSelectedUser()ElseUserID = 0EndIfgrdLogins.DataSource = gUserData.SelectUserNTCredentialsAll(UserID)EndSub<telerik:RadGridID="grdLogins"runat="server"Skin="Office2010Blue"AutoGenerateColumns="False"CellSpacing="0"GridLines="None"AllowPaging="True"PageSize="5"><ClientSettings><SelectingAllowRowSelect="True"/></ClientSettings><MasterTableViewDataKeyNames="LoginID"CommandItemDisplay="Top"EditMode="InPlace"><NoRecordsTemplate>No Records to display.</NoRecordsTemplate><CommandItemSettingsExportToPdfText="Export to PDF"/><RowIndicatorColumnFilterControlAltText="Filter RowIndicator column"Visible="True"><HeaderStyleWidth="20px"/></RowIndicatorColumn><ExpandCollapseColumnFilterControlAltText="Filter ExpandColumn column"Visible="True"><HeaderStyleWidth="20px"/></ExpandCollapseColumn><Columns><telerik:GridBoundColumnDataField="LoginID"FilterControlAltText="Filter LoginID column"UniqueName="LoginID"Visible="False"Display="False"ReadOnly="True"></telerik:GridBoundColumn><telerik:GridBoundColumnDataField="NTLogin"FilterControlAltText="Filter NTLogin column"HeaderText="NT Login"UniqueName="NTLogin"></telerik:GridBoundColumn><telerik:GridBoundColumnDataField="CreateDate"Display="False"FilterControlAltText="Filter CreateDate column"HeaderText="Date Added"UniqueName="CreateDate"Visible="False"></telerik:GridBoundColumn><telerik:GridBoundColumnDataField="CreateBy"FilterControlAltText="Filter CreateBy column"UniqueName="CreateBy"Visible="False"></telerik:GridBoundColumn><telerik:GridBoundColumnDataField="UpdateDate"FilterControlAltText="Filter UpdateDate column"UniqueName="UpdateDate"Visible="False"></telerik:GridBoundColumn><telerik:GridBoundColumnDataField="UpdateBy"FilterControlAltText="Filter UpdateBy column"UniqueName="UpdateBy"Visible="False"></telerik:GridBoundColumn></Columns><EditFormSettings><EditColumnFilterControlAltText="Filter EditCommandColumn column"></EditColumn></EditFormSettings><CommandItemTemplate><telerik:RadToolBarID="RadToolBar1"Runat="server"Width="100%"Skin="Office2010Blue"onbuttonclick="RadToolBar1_ButtonClick"EnableRoundedCorners="True"><items><telerik:RadToolBarButtonrunat="server"CommandName="InitInsert"ImageUrl="~/Images/add2.png"Visible='<%# Not grdLogins.MasterTableView.IsItemInserted %>' Owner="RadToolBar1"Text="Add New"></telerik:RadToolBarButton><telerik:RadToolBarButtonrunat="server"CommandName="EditSelected"ImageUrl="~/Images/edit.png"Owner="RadToolBar1"Text="Edit Selected"Visible='<%#grdLogins.EditIndexes.Count=0%>'></telerik:RadToolBarButton><telerik:RadToolBarButtonrunat="server"CommandName="UpdateEdited"ImageUrl="~/Images/check2.png"Text="Update Edit"Visible='<%# grdLogins.EditIndexes.Count > 0 %>'></telerik:RadToolBarButton><telerik:RadToolBarButtonrunat="server"CommandName="CancelAll"ImageUrl="~/Images/undo.png"Text="Cancel"Visible='<%# grdLogins.EditIndexes.Count > 0 or grdLogins.MasterTableView.IsItemInserted %>'></telerik:RadToolBarButton><telerik:RadToolBarButtonrunat="server"CommandName="PerformInsert"ImageUrl="~/Images/redo.png"Text="Commit Insert"Visible='<%# grdLogins.MasterTableView.IsItemInserted%>'></telerik:RadToolBarButton><telerik:RadToolBarButtonrunat="server"CommandName="DeleteSelected"ImageUrl="~/Images/delete2.png"Owner="RadToolBar1"Text="Delete Selected"></telerik:RadToolBarButton><telerik:RadToolBarButtonrunat="server"IsSeparator="True"Text="Sep3"></telerik:RadToolBarButton><telerik:RadToolBarButtonrunat="server"CommandName="RebindGrid"ImageUrl="~/Images/refresh.png"Text="Refresh"></telerik:RadToolBarButton></items></telerik:RadToolBar></CommandItemTemplate></MasterTableView><PagerStylePageButtonCount="5"/><FilterMenuEnableImageSprites="False"><WebServiceSettings><ODataSettingsInitialContainerName=""></ODataSettings></WebServiceSettings></FilterMenu><HeaderContextMenuCssClass="GridContextMenu GridContextMenu_Office2010Blue"><WebServiceSettings><ODataSettingsInitialContainerName=""></ODataSettings></WebServiceSettings></HeaderContextMenu></telerik:RadGrid>
<%@ Page Title="Home Page" Language="vb" AutoEventWireup="false" CodeBehind="Default.aspx.vb" Inherits="RadComboBoxBug._Default" %><!DOCTYPE HTML /><%@ Register TagPrefix="telerik" Assembly="Telerik.Web.UI" Namespace="Telerik.Web.UI" %><html> <head id="Head1" runat="server"> <title>RadComboBox Issues</title> <link href="~/Styles/Site.css" rel="stylesheet" type="text/css" /> </head> <body> <form id="Form1" runat="server"> <telerik:RadScriptManager ID="RadScriptManager1" runat="server" /> <div class="page"> <div class="main"> <div style="margin: 10px; border: 1px solid #CCC; padding: 10px;"> <telerik:RadComboBox ID="RadComboBox2" runat="server" EnableLoadOnDemand="true" EmptyMessage="Select a Person" AppendDataBoundItems="false" AutoPostBack="true" DataValueField="RecordID" DataTextField="Name" ShowMoreResultsBox="true" EnableVirtualScrolling="false" MarkFirstMatch="true" CausesValidation="False" OnClientDropDownOpening="onDropDownOpening" /> <asp:Label ID="lbl_SelectedPerson" runat="server" Style="margin-left: 15px" /> </div> </div> </div> </form> </body> <script type="text/javascript"> function onDropDownOpening(sender) { var attributes = sender.get_attributes(); if (attributes.getAttribute("DefaultItem") === "true") { sender.requestItems("", false); attributes.setAttribute("DefaultItem", "false"); } } </script></html>Imports Telerik.Web.UIPublic Class _Default Inherits Page Private Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load If IsPostBack = False Then Dim personID As String = Request.QueryString("PID") If personID IsNot Nothing Then RadComboBox2.SelectedValue = personID RadComboBox2.Attributes.Add("DefaultItem", "true") RadComboBox2.Items.Add(New RadComboBoxItem(String.Format("Person {0}", personID), CStr(personID))) End If End If End Sub Private Sub Page_PreRender(sender As Object, e As System.EventArgs) Handles Me.PreRender lbl_SelectedPerson.Text = String.Format("Selected Item: {0}", RadComboBox2.SelectedValue) End Sub Private Sub RadComboBox2_ItemsRequested(sender As Object, e As RadComboBoxItemsRequestedEventArgs) Handles RadComboBox2.ItemsRequested RadComboBox2.DataSource = GetPeople() RadComboBox2.DataBind() e.EndOfItems = True End Sub Private Sub RadComboBox2_SelectedIndexChanged(sender As Object, e As RadComboBoxSelectedIndexChangedEventArgs) Handles RadComboBox2.SelectedIndexChanged Response.Redirect(String.Format("/Default.aspx?PID={0}", e.Value)) End Sub Private Function GetPeople() As List(Of Person) Dim theList As New List(Of Person) For i As Integer = 1 To 100 theList.Add(New Person() With {.RecordID = i, .Name = String.Format("Person {0}", i)}) Next Return theList End Function Public Structure Person Public Property RecordID As Integer Public Property Name As String End StructureEnd Class
