34 lines
1.3 KiB
VB.net
34 lines
1.3 KiB
VB.net
Imports DevExpress.ExpressApp.Web.Editors.ASPx
|
|
Imports DevExpress.Web
|
|
Imports DevExpress.Utils
|
|
|
|
Public Class WebAllowSortListViewController
|
|
Inherits AllowSortListViewController
|
|
Protected Overrides Sub OnViewControlsCreated()
|
|
MyBase.OnViewControlsCreated()
|
|
UpdateAllowSort()
|
|
End Sub
|
|
Protected Overrides Sub UpdateAllowSort()
|
|
'Dim gridListEditor As ASPxGridListEditor = TryCast(View.Editor, ASPxGridListEditor)
|
|
'If gridListEditor IsNot Nothing Then
|
|
' Dim allowSortListView As Boolean = GetAllowSortListView()
|
|
' gridListEditor.Grid.SettingsBehavior.AllowSort = allowSortListView
|
|
' If allowSortListView Then
|
|
' For Each column As GridViewColumn In gridListEditor.Grid.Columns
|
|
' Dim dataColumn As GridViewDataColumn = TryCast(column, GridViewDataColumn)
|
|
' If dataColumn IsNot Nothing Then
|
|
' If GetAllowSortColumn(dataColumn) Then
|
|
' dataColumn.Settings.AllowSort = DefaultBoolean.True
|
|
' Else
|
|
' dataColumn.Settings.AllowSort = DefaultBoolean.False
|
|
' End If
|
|
|
|
' End If
|
|
' Next column
|
|
' End If
|
|
'End If
|
|
End Sub
|
|
End Class
|
|
|
|
|