55 lines
2.5 KiB
VB.net
55 lines
2.5 KiB
VB.net
Imports Microsoft.VisualBasic
|
|
Imports System
|
|
Imports DevExpress.Data
|
|
Imports DevExpress.ExpressApp
|
|
Imports DevExpress.ExpressApp.Model
|
|
Imports DevExpress.ExpressApp.Web.Editors.ASPx
|
|
Imports DevExpress.Web
|
|
|
|
Public Class WebGroupFooterViewController
|
|
Inherits ViewController(Of ListView)
|
|
Public Sub New()
|
|
MyBase.New()
|
|
|
|
'This call is required by the Component Designer.
|
|
InitializeComponent()
|
|
RegisterActions(components)
|
|
|
|
End Sub
|
|
Protected Overrides Sub OnViewControlsCreated()
|
|
MyBase.OnViewControlsCreated()
|
|
Dim displayFormat As String = ""
|
|
Dim modelListView As IModelListViewExtender = TryCast(View.Model, IModelListViewExtender)
|
|
If modelListView IsNot Nothing AndAlso modelListView.IsGroupFooterVisible Then
|
|
Dim gridListEditor As ASPxGridListEditor = TryCast(View.Editor, ASPxGridListEditor)
|
|
If gridListEditor IsNot Nothing Then
|
|
Dim gridView As ASPxGridView = gridListEditor.Grid
|
|
gridView.Settings.ShowGroupFooter = GridViewGroupFooterMode.VisibleAlways
|
|
For Each modelColumn As IModelColumn In View.Model.Columns
|
|
Dim modelColumnExtender As IModelColumnExtender = TryCast(modelColumn, IModelColumnExtender)
|
|
If modelColumnExtender IsNot Nothing AndAlso modelColumnExtender.GroupFooterSummaryType <> SummaryItemType.None Then
|
|
Dim fieldName As String = modelColumn.ModelMember.MemberInfo.BindingName
|
|
Dim summaryItem As ASPxSummaryItem = Nothing
|
|
For Each currentItem As ASPxSummaryItem In gridView.GroupSummary
|
|
If currentItem.FieldName = fieldName Then
|
|
currentItem.ShowInGroupFooterColumn = modelColumn.Caption
|
|
summaryItem = currentItem
|
|
Exit For
|
|
End If
|
|
Next currentItem
|
|
If summaryItem Is Nothing Then
|
|
summaryItem = New ASPxSummaryItem(fieldName, modelColumnExtender.GroupFooterSummaryType)
|
|
summaryItem.ShowInGroupFooterColumn = modelColumn.Caption
|
|
summaryItem.DisplayFormat = modelColumn.DisplayFormat
|
|
gridView.GroupSummary.Add(summaryItem)
|
|
End If
|
|
End If
|
|
Next modelColumn
|
|
End If
|
|
End If
|
|
End Sub
|
|
End Class
|
|
|
|
|
|
|