Private Sub Page_Init(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Init
        DefineGridStructure()
    End Sub
  
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Dim Grid1 As RadGrid = CType(PlaceHolder1.FindControl("RadGrid1"), RadGrid)
        RadAjaxManager1.AjaxSettings.AddAjaxSetting(Grid1, Grid1)
        If Not IsPostBack Then
            Grid1.SelectedIndexes.Add(1, 0, 1)
            'Grid1.MasterTableView.Items(0).Expanded = True
            'Grid1.MasterTableView.Items(0).ChildItem.NestedTableViews(0).Items(0).Expanded = True
        End If
    End Sub
   

    Public Sub DefineGridStructure() 'Handles RadGrid1.NeedDataSource
        Dim RadGrid1 As RadGrid = New RadGrid

        Dim xmlDoc As New System.Xml.XmlDocument()
        xmlDoc.Load(Server.MapPath("OutTypeID6.xml"))

        Dim ndList As System.Xml.XmlNodeList = xmlDoc.SelectNodes("//Product/node()[descendant::node()]")
        Dim nd As System.Xml.XmlNode = xmlDoc.SelectSingleNode("//Product/node()[descendant::node()]")

        Dim ds As New DataSet()
        ds.ReadXml(New StringReader(nd.OuterXml))

        RadGrid1.ID = "RadGrid1"
        RadGrid1.DataSource = ds

        RadGrid1.Width = Unit.Percentage(98)
        RadGrid1.AllowPaging = True
        RadGrid1.AllowSorting = True
        RadGrid1.PagerStyle.Mode = GridPagerMode.NextPrevAndNumeric
        RadGrid1.AutoGenerateColumns = False
        RadGrid1.ShowStatusBar = True

        RadGrid1.MasterTableView.DataKeyNames = New String() {nd.Name}

        Dim boundColumn As GridBoundColumn

        Dim tableView As New GridTableView(RadGrid1)
        Dim relationFields As GridRelationFields = New GridRelationFields()
        For Each xmlnode As System.Xml.XmlNode In ndList
            For Each XNode As System.Xml.XmlNode In xmlnode.ChildNodes
                boundColumn = New GridBoundColumn
                boundColumn.DataField = XNode.Name 'XNode.FirstChild.Value
                boundColumn.HeaderText = XNode.Name
                RadGrid1.MasterTableView.Columns.Add(boundColumn)

                If XNode.FirstChild.ChildNodes.Count > 0 Then
                    tableView.DataSource = ds.Tables(1)
                    For Each chNode As System.Xml.XmlNode In XNode.ChildNodes
                        tableView.DataKeyNames = New String() {chNode.Name}
                        tableView.Width = Unit.Percentage(100)
                        relationFields.MasterKeyField = XNode.ParentNode.Name 'chNode.ParentNode.Name
                        relationFields.DetailKeyField = XNode.ParentNode.Name 'chNode.ParentNode.Name
                        tableView.ParentTableRelation.Add(relationFields)
                        RadGrid1.MasterTableView.DetailTables.Add(tableView)

                        boundColumn = New GridBoundColumn
                        boundColumn.DataField = chNode.Name 'XNode.FirstChild.InnerText
                        boundColumn.HeaderText = chNode.Name
                        tableView.Columns.Add(boundColumn)

                    Next
                    tableView.Caption = XNode.Name
                    tableView.DataBind()
                End If
                tableView.Width = Unit.Percentage(100)
            Next
        Next
        RadGrid1.DataSource = ds
        RadGrid1.Rebind()

        Me.PlaceHolder1.Controls.Add(RadGrid1)