or
<telerik:RadListBox ID="RadListBox2" runat="server" Width="280px" Height="280px" CssClass ="radcss" AutoPostBackOnTransfer="true" AllowTransferOnDoubleClick="true" SelectionMode="Multiple" AutoPostBackOnReorder="true" EnableDragAndDrop="true" AutoPostBack="true" Skin="Office2010Blue" OnSelectedIndexChanged="row_click" AllowDelete="True" > <ButtonSettings ShowTransferAll="false" /> </telerik:RadListBox><telerik:RadToolTip ID="RadToolTip1" runat="server" BackColor="white" ManualClose="false" OnClientBeforeShow="OnClientBeforeShow" Relative To ="Element" RenderInPageRoot="true" EnableShadow="true" Animation="Slide" > <web:web ID ="tooltip" runat="server" /></telerik:RadToolTip>public void row_click(object sender, EventArgs e) { tooltip.Refresh(Convert.ToInt32(((Telerik.Web.UI.ControlItem)(((Telerik.Web.UI.RadListBox)(sender)).SelectedItem)).Value)); tooltip.UserName = Convert.ToString(((Telerik.Web.UI.ControlItem)(((Telerik.Web.UI.RadListBox)(sender)).SelectedItem)).Text); ((System.Web.UI.Control)(((Telerik.Web.UI.RadListBox)(sender)).SelectedItem)).Focus(); RadToolTip1.TargetControlID = ((System.Web.UI.Control)(((Telerik.Web.UI.RadListBox)(sender)).SelectedItem)).UniqueID; RadToolTip1.RelativeTo =Telerik.Web.UI.ToolTipRelativeDisplay.Element; RadToolTip1.Position = ToolTipPosition.MiddleRight; RadToolTip1.Overlay = true; RadToolTip1.ShowEvent = Telerik.Web.UI.ToolTipShowEvent.OnClick; RadToolTip1.Show(); }public class AttributeValue{ public string Name {get;set;} public string Value {get;set;}} public class Entry{ public string EntryName {get;set;} public List<AttributeValue> Attributes {get;set;}}<telerik:RadGrid ID="rgEntry" runat="server"> <MasterTableView> <Columns> <telerik:GridTemplateColumn> <ItemTemplate> <telerik:RadGrid ShowHeader="false" ShowFooter="false" runat="server" ID="rgAttributes"> </telerik:RadGrid> </ItemTemplate> <HeaderTemplate> </HeaderTemplate> </telerik:GridTemplateColumn> </Columns> </MasterTableView></telerik:RadGrid><telerik:RadMenu ID="RadMenu1" Skin="WebBlue" OnClientItemClicking="myClickFunction" runat="server" Flow="Horizontal"> <ExpandAnimation Type="InOutQuad" /></telerik:RadMenu>Private Sub ClearGridSettings() ' - Clear Grouping/Sort Levels ' - Clear Context Menus ' - Clear Data Bindings ' - Clear Columns With grdSubmission 'Clear Grouping/Sort Levels .MasterTableView.GroupByExpressions.Clear() .MasterTableView.SortExpressions.Clear() 'Clear Context Menus .ClientSettings.ClientEvents.OnRowContextMenu = "" 'Clear Data Bindings .DataSource = "" .DataBind() 'Clear Columns .Columns.Clear() End With End SubPrivate Sub InitializeSubmissionGrid(ByVal GridViewSchema As Int16) '########################################## 'Initialize Data Grid for Submission Claims Review ' - Reset Grid ' - Get GridView Schema for Submissions Claim Listing ' - Implement Column Structure ' - Set Miscellaneous Parameters '########################################### ClearGridSettings() 'Get Grid View Schema for Submissions View Dim objDW As New DWGlobals Dim ds As DataSet = objDW.GetGridViewSchema(GridViewSchema) With grdSubmission 'Add Columns to Grid For Each objRow As DataRow In ds.Tables(0).Rows Dim objCol As New GridBoundColumn() .MasterTableView.Columns.Add(objCol) objCol.DataField = objRow("ColName") objCol.HeaderText = objRow("ColName") If Not IsDBNull(objRow("FormatString")) Then objCol.DataFormatString = objRow("FormatString") End If objCol = Nothing Next ' Set Miscellaneous parameters .ClientSettings.Resizing.AllowResizeToFit = True .ClientSettings.Resizing.AllowColumnResize = True .ClientSettings.Scrolling.AllowScroll = True .ClientSettings.Scrolling.UseStaticHeaders = True .AutoGenerateColumns = False .MasterTableView.GroupsDefaultExpanded = False .MasterTableView.GridLines = GridLines.Both .MasterTableView.AllowFilteringByColumn = False .MasterTableView.Caption = txtSubmLabel.Text & "...(Claim Qty: " & txtClaimQty.Text & " )" End WithEnd SubPrivate Sub InitializeFindingsGrid(ByVal GridViewSchema As Int16) '########################################## 'Initialize Data Grid for Validation Findings Review ' - Reset Grid ' - Get GridView Schema for Validation Findings Listing ' - Implement Column Structure ' - Set Miscellaneous Parameters '########################################### ClearGridSettings() 'Get Grid View Schema for Submissions View Dim objDW As New DWGlobals Dim ds As DataSet = objDW.GetGridViewSchema(GridViewSchema) objDW = Nothing Dim exp As New GridGroupByExpression() Dim gbf As New GridGroupByField() With grdSubmission 'Add Columns to Grid For Each objRow As DataRow In ds.Tables(0).Rows Dim objCol As New GridBoundColumn() objCol.DataField = objRow("ColName") objCol.HeaderText = objRow("ColName") objCol.UniqueName = objRow("ColName") If Not IsDBNull(objRow("FormatString")) Then objCol.DataFormatString = objRow("FormatString") End If objCol.GroupByExpression = objRow("ColName") 'Add GroupByField to GroupByExpression 'gbf = New GridGroupByField 'With gbf ' .FieldName = objRow("ColName") ' .HeaderText = objRow("ColName") ' .HeaderValueSeparator = " HeaderValSep " ' .Aggregate = GridAggregateFunction.Count 'End With 'exp.SelectFields.Add(gbf) .MasterTableView.Columns.Add(objCol) objCol = Nothing Next 'Add GroupByExpression object to table ' .MasterTableView.GroupByExpressions.Add(exp) ' Set Miscellaneous parameters .ClientSettings.Resizing.AllowResizeToFit = True .ClientSettings.Resizing.AllowColumnResize = True .ClientSettings.Scrolling.AllowScroll = True .ClientSettings.Scrolling.UseStaticHeaders = True .AutoGenerateColumns = False .MasterTableView.GroupsDefaultExpanded = False .MasterTableView.GridLines = GridLines.Both .MasterTableView.AllowFilteringByColumn = False .MasterTableView.Caption = "Findings For " & txtSubmLabel.Text & _ "...( " & txtFindingType.Text & ")" 'Enable Grid Options for Findings Review .AllowMultiRowSelection = True .ClientSettings.Selecting.AllowRowSelect = True .ClientSettings.Selecting.EnableDragToSelectRows = True .ClientSettings.ClientEvents.OnRowContextMenu = "RowContextMenu" End With exp = Nothing gbf = Nothing End Sub