2014-02-20 5 views
0

Интересно, кто-нибудь когда-либо вносил это. Я добавляю дополнительную строку в заголовок datagrid, чтобы предоставить общее описание группе столбцов. Я использую следующий код, но это создает проблемы с пейджером, I.E. нижний пейджер не синхронизируется с верхним.Добавление строки заголовка в разрывы datagrid paging

Sub dgResults_Item_Created(sender As Object, e As DataGridItemEventArgs) 
    'http://www.codeproject.com/Articles/16049/Merge-Header-GridView-DataGrid 

    If (e.Item.ItemType = ListItemType.Header) Then 

     Dim mTable = DirectCast(dgResults.DataSource, DataView) 
     If (Not IsNothing(mTable)) Then 
      Dim colSpan = 4 ' colspan of new header 
      Dim colCount = mTable.Table.Columns.Count ' add cell at colCount - colSpan 

      Dim dgitem = New DataGridItem(0, 0, ListItemType.Header) 
      Dim dgcell1 = New TableCell() 
      Dim dgcell2 = New TableCell() 
      dgcell1.ColumnSpan = colCount - colSpan 
      dgcell2.ColumnSpan = colSpan 

      dgitem.Cells.Add(dgcell1) 
      dgitem.Cells.Add(dgcell2) 

      dgcell2.Text = "Client information" 
      dgcell2.HorizontalAlign = HorizontalAlign.Center 

      dgResults.Controls(0).Controls.Add(dgitem) 

     End If 

    End If 
End Sub 'Item_Created 

ответ

Смежные вопросы