or
<ClientSettings> <Scrolling AllowScroll="True" UseStaticHeaders="True" SaveScrollPosition="True"/></ClientSettings><head runat="server"> <link rel="Stylesheet" type="text/css" href="./Styles.css" /> <title>Content Tracker</title></head><body class="body"> <form id="form1" runat="server"> <telerik:RadScriptManager runat="server" ID="RadScriptManager1" /> <telerik:RadAjaxManager ID="RadAjaxManager1" runat="server"> <AjaxSettings> <telerik:AjaxSetting AjaxControlID="RadGrid1"> <UpdatedControls> <telerik:AjaxUpdatedControl ControlID="RadGrid1" LoadingPanelID="RadAjaxLoadingPanel1" /> </UpdatedControls> </telerik:AjaxSetting> </AjaxSettings> </telerik:RadAjaxManager> <telerik:RadAjaxLoadingPanel ID="RadAjaxLoadingPanel1" runat="server" /> <!-- Page Header --> <div class="header"> <table width="1000px"> <tr> <td> <table> <tr> <td> <img alt="" src="./Images/xxxxx_Logo_Small.gif" /> </td> </tr> </table> </td> <td style="float: right"> <table border="0"> <tr> <td> </td> </tr> <tr> <td> <b>Welcome <asp:Label ID="loggedInUser" runat="server" /></b> </td> </tr> </table> </td> </tr> </table> </div> <div id="Nav" class="nav"></div> <div id="spacer" class="divSpacer"></div> <!-- Page Content --> <div id="content" class="content" > <telerik:RadGrid ID="RadGrid1" Width="990" runat="server" DataSourceID="EntityDataSourceAssignments" AllowPaging="True" AllowAutomaticUpdates="True" AllowAutomaticInserts="True" GridLines="Both" AllowAutomaticDeletes="true" AllowSorting="true" OnItemCreated="RadGrid1_ItemCreated" OnItemInserted="RadGrid1_ItemInserted" OnPreRender="RadGrid1_PreRender"> <PagerStyle Mode="NextPrevAndNumeric" /> <MasterTableView DataSourceID="EntityDataSourceAssignments" AutoGenerateColumns="False" DataKeyNames="AssignmentsID" CommandItemDisplay="Top"> <Columns> <telerik:GridBoundColumn DataField="JurisdictionCode" HeaderText="Jurisdiction Code" SortExpression="JurisdictionCode" UniqueName="JurisdictionCode" Visible="true"> </telerik:GridBoundColumn> <telerik:GridBoundColumn DataField="ObligationName" HeaderText="Obligation Name" SortExpression="ObligationName" UniqueName="ObligationName" Visible="true"> </telerik:GridBoundColumn> <telerik:GridBoundColumn DataField="DevTeamLead" HeaderText="Dev Team Lead" SortExpression="DevTeamLead" UniqueName="DevTeamLead" Visible="true"> </telerik:GridBoundColumn> <telerik:GridBoundColumn DataField="Developer" HeaderText="Developer" SortExpression="Developer" UniqueName="Developer" Visible="true"> </telerik:GridBoundColumn> <telerik:GridBoundColumn DataField="TestTeamLead" HeaderText="Test Team Lead" SortExpression="TestTeamLead" UniqueName="TestTeamLead" Visible="true"> </telerik:GridBoundColumn> <telerik:GridBoundColumn DataField="DueDate" HeaderText="Due Date" SortExpression="DueDate" UniqueName="DueDate" Visible="true"> </telerik:GridBoundColumn> <telerik:GridBoundColumn DataField="FormsReceived" HeaderText="Forms Received" SortExpression="FormsReceived" UniqueName="FormsReceived" Visible="true"> </telerik:GridBoundColumn> <telerik:GridBoundColumn DataField="EfileComplete" HeaderText="Efile Complete" SortExpression="EfileComplete" UniqueName="EfileComplete" Visible="true"> </telerik:GridBoundColumn> <telerik:GridBoundColumn DataField="ESEXTStatus" HeaderText="ES-EXT Status" SortExpression="ESEXTStatus" UniqueName="ESEXTStatus" Visible="true"> </telerik:GridBoundColumn> <telerik:GridBoundColumn DataField="SubmittalStatus" HeaderText="Submittal Status" SortExpression="SubmittalStatus" UniqueName="SubmittalStatus" Visible="true"> </telerik:GridBoundColumn> <telerik:GridBoundColumn DataField="Priority" HeaderText="Priority" SortExpression="Priority" UniqueName="Priority" Visible="true"> </telerik:GridBoundColumn> <telerik:GridButtonColumn Text="Delete" CommandName="Delete" ButtonType="ImageButton" /> </Columns> <EditFormSettings> <EditColumn ButtonType="ImageButton" /> </EditFormSettings> </MasterTableView> <ClientSettings> <Scrolling AllowScroll="True" UseStaticHeaders="True" SaveScrollPosition="True"> </Scrolling> </ClientSettings> </telerik:RadGrid> <asp:EntityDataSource ID="EntityDataSourceAssignments" runat="server" ConnectionString="name=ContentTrackerEntities" DefaultContainerName="ContentTrackerEntities" EntitySetName="Assignments" EnableUpdate="True" EnableDelete="True" EnableInsert="True"> </asp:EntityDataSource> </div> <div id="page-footer"> <div id="page-footer-copyright">Copyright © 2010-2012 xxxxxx. All rights reserved.</div> </div> </form>
RadGrid1.MasterTableView.HierarchyDefaultExpanded = True Dim tableSubCode As New GridTableView(RadGrid1) tableSubCode.Name = "SubCodes" tableSubCode.Width = Unit.Percentage(100) Dim relationFields1 As GridRelationFields = New GridRelationFields() relationFields1.MasterKeyField = "DetailID" relationFields1.DetailKeyField = "DetailID" tableSubCode.ParentTableRelation.Add(relationFields1) RadGrid1.MasterTableView.DetailTables.Add(tableSubCode) columnSubCodeCreation("SubCode", "Sub_Code", tableSubCode) columnSubCodeCreation("Household", "HouseHold_Count", tableSubCode) If mstrClientDataCategoryID1Description.Trim <> "" Then columnSubCodeCreation(mstrClientDataCategoryID1Description.Trim, "CD1", tableSubCode) End If If mstrClientDataCategoryID2Description.Trim <> "" Then columnSubCodeCreation(mstrClientDataCategoryID2Description.Trim, "CD2", tableSubCode) End If If mstrClientDataCategoryID3Description.Trim <> "" Then columnSubCodeCreation(mstrClientDataCategoryID3Description.Trim, "CD3", tableSubCode) End If If mstrReportDemographicID1Description.Trim <> "" Then columnSubCodeCreation(mstrReportDemographicID1Description.Trim, "Demographic1", tableSubCode) End If If mstrReportDemographicID2Description.Trim <> "" Then columnSubCodeCreation(mstrReportDemographicID2Description.Trim, "Demographic2", tableSubCode) End If If mstrReportDemographicID3Description.Trim <> "" Then columnSubCodeCreation(mstrReportDemographicID3Description.Trim, "Demographic3", tableSubCode) End If If mstrReportDemographicID4Description.Trim <> "" Then columnSubCodeCreation(mstrReportDemographicID4Description.Trim, "Demographic4", tableSubCode) End If If mstrReportDemographicID5Description.Trim <> "" Then columnSubCodeCreation(mstrReportDemographicID5Description.Trim, "Demographic5", tableSubCode) End If columnSubCodeCreation("Selected", "Selected", tableSubCode) If UcHeader.objSession.ApplicationId <> CInt(ConfigurationManager.AppSettings("MediaviewerAppID")) Then columnSubCodeCreation("Forced", "Forced", tableSubCode) End If columnSubCodeCreation("Circ", "Circ", tableSubCode) columnSubCodeCreation("Coverage", "Coverage", tableSubCode) If UcHeader.objSession.ApplicationId <> CInt(ConfigurationManager.AppSettings("MediaviewerAppID")) Then Dim dpCounter As Integer = 1 Dim dpCollection As IList(Of RadListBoxItem) = rlbDistributionPatterns.CheckedItems For Each item As RadListBoxItem In dpCollection columnSubCodeCreation(item.Text, "DP" & dpCounter.ToString, tableSubCode) dpCounter += 1 Next End If Private Sub RadGrid1_DetailTableDataBind(sender As Object, e As Telerik.Web.UI.GridDetailTableDataBindEventArgs) Handles RadGrid1.DetailTableDataBind Dim dataItem As GridDataItem = CType(e.DetailTableView.ParentItem, GridDataItem) Select Case e.DetailTableView.Name Case "SubCodes" Dim detailID As Integer = dataItem.GetDataKeyValue("DetailID").ToString() 'Dim Geography As String = dataItem.GetDataKeyValue("Geography").ToString() 'Dim CirculationTypeID As Integer = dataItem.GetDataKeyValue("CirculationTypeID").ToString() Dim Day As String = dataItem.GetDataKeyValue("Day").ToString() If mintCircSetID > 0 And (detailID = 29 Or detailID = 506 Or detailID = 509) Then e.DetailTableView.DataSource = GetDataTable(mstrSQL & ",1," & detailID & ",'" & Day & "'") End If End Select End Sub