or
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