ColumnHeaderGroup in combination with headerrow

  1. #1

    ColumnHeaderGroup in combination with headerrow

    Hi,

    I've a problem using headergrouprow in combination with a header row.

    I want to add 2 headergrouprows above my column headers and one header row below my column headers.

    ' Generate new ID's
            NewStoreID = String.Concat("L", Level.ToString, "_", RecordID, "_Store")
            NewGridID = String.Concat("L", Level.ToString, "_", RecordID, "_Grid")
            ' Build Store
            NewStore = New Store With {.ID = NewStoreID}
            NewReader = New JsonReader()
            NewReader.Fields.Add("selector", "ytd_prev_yr_dgfscore", "ytd_curr_yr_dgfscore", "ytd_prev_yr_airlinescore", "ytd_curr_yr_airlinescore", "ID")
            RF = New RecordField
            RF.Name = "Level"
            RF.Convert.Handler = String.Concat("return ", Level.ToString, ";")
            NewReader.Fields.Add(RF)
            NewStore.Reader.Add(NewReader)
            ' Build Grid
            NewGrid = New GridPanel
            NewGrid.ID = NewGridID
            NewGrid.AutoHeight = True
            NewGrid.Border = False
            NewGrid.Layout = "Fit"
            NewGrid.AutoScroll = True
            NewGrid.HideHeaders = (Level <> 1)
            NewGrid.Store.Add(NewStore)
            ' Build grid columns
            NewGrid.ColumnModel.Columns.Add(New Column() With {.DataIndex = "selector", .Header = "Name"})
            NewGrid.ColumnModel.Columns.Add(New Column() With {.DataIndex = "ytd_prev_yr_dgfscore", .Header = "YEAR FROM"})
            NewGrid.ColumnModel.Columns.Add(New Column() With {.DataIndex = "ytd_curr_yr_dgfscore", .Header = "YEAR TO"})
            NewGrid.ColumnModel.Columns.Add(New Column() With {.DataIndex = "", .Header = "VAR"})
            NewGrid.ColumnModel.Columns.Add(New Column() With {.DataIndex = "ytd_prev_yr_airlinescore", .Header = "YEAR FROM"})
            NewGrid.ColumnModel.Columns.Add(New Column() With {.DataIndex = "ytd_curr_yr_airlinescore", .Header = "YEAR TO"})
            NewGrid.ColumnModel.Columns.Add(New Column() With {.DataIndex = "", .Header = "VAR"})
            NewGrid.ColumnModel.ID = NewGridID + "_CM"
            ' Add expander
            RE = New RowExpander()
            RE.ID = NewGridID + "_RE"
            RE.EnableCaching = True
            RE.Template.ID = NewGridID + "_TPL"
            RE.Template.Html = "<div id=""row_{ID}"" style=""background-color:white;""></div>"
            RE.Listeners.BeforeExpand.Fn = "loadLevel"
            NewGrid.Plugins.Add(RE)
            ' Build Grid View
            NewGridView = New GridView()
            NewGridView.ID = NewGridID + "_View"
            NewGridView.ForceFit = True
            NewGridView.Listeners.BeforeRefresh.Fn = "clean"
            HGR1 = New HeaderGroupRow
            HGR2 = New HeaderGroupRow
            HGR1.Columns.Add(New HeaderGroupColumn() With {.Header = "Results", .ColSpan = 8, .Align = Alignment.Center})
            HGR2.Columns.Add(New HeaderGroupColumn() With {.Header = "", .ColSpan = 2, .Align = Alignment.Center})
            HGR2.Columns.Add(New HeaderGroupColumn() With {.Header = "DGF Score", .ColSpan = 3, .Align = Alignment.Center})
            HGR2.Columns.Add(New HeaderGroupColumn() With {.Header = "Airline Score", .ColSpan = 3, .Align = Alignment.Center})
            HR = New HeaderRow
            HR.Columns.Add(New HeaderColumn())
            HR.Columns.Add(New HeaderColumn() With {.Target = "#{cboSelectField}", .Cls = "x-small-editor"})
            NewGridView.HeaderGroupRows.Add(HGR1)
            NewGridView.HeaderGroupRows.Add(HGR2)
            NewGridView.HeaderRows.Add(HR)
            NewGrid.View.Add(NewGridView)
            ' build selection model
            SM = New RowSelectionModel() With {.ID = NewGridID + "_SM"}
            NewGrid.SelectionModel.Add(SM)
            ' Bind Data to store
            If Not Utils.IsEmpty(Data) Then
                NewStore.DataSource = Data
                NewStore.DataBind()
            End If
            If (Level = 1) Then
                PanelMain.Items.Add(NewGrid)
            Else
                Dim renderEl As System.String = "row_" + RecordID
                Ext.Net.X.Get(renderEl).SwallowEvent(New System.String() {"click", "mousedown", "mouseup", "dblclick"}, True)
                Me.RemoveFromCache(NewGridID, GridID)
                NewGrid.Render(renderEl, RenderMode.RenderTo)
                Me.AddToCache(NewGridID, GridID)
            End If
    But i get "HeaderGroupRow_1.JPG" as output.
    What i want is "HeaderGroupRow_2.JPG" as output and below my column headers my headerrow. More specific, under the column Name, i want a dropdownlist.

    Thanx!
    Attached Thumbnails Click image for larger version. 

Name:	HeaderGroupRow_1.JPG 
Views:	157 
Size:	49.3 KB 
ID:	1896   Click image for larger version. 

Name:	HeaderGroupRow_2.JPG 
Views:	120 
Size:	32.8 KB 
ID:	1897  
    Last edited by Birgit; Nov 16, 2010 at 12:51 PM. Reason: update
  2. #2
    Any news on this topic?
    I've updated my post today, to make it more clear for you.

    Thanx!

Similar Threads

  1. Replies: 13
    Last Post: Sep 15, 2017, 10:38 PM
  2. [OPEN] [#96] ColumnHeaderGroup Hideable columns
    By cwolcott in forum 2.x Legacy Premium Help
    Replies: 6
    Last Post: Mar 12, 2013, 9:33 AM
  3. Replies: 15
    Last Post: Feb 06, 2013, 5:44 AM
  4. Replies: 7
    Last Post: Jul 02, 2012, 6:59 PM
  5. [CLOSED] ColumnHeaderGroup in a TreePanel
    By fordprefect in forum 1.x Legacy Premium Help
    Replies: 3
    Last Post: Jan 21, 2012, 3:45 PM

Posting Permissions