22 lines
739 B
VB.net
22 lines
739 B
VB.net
Imports DevExpress.ExpressApp.DC
|
|
Imports DevExpress.ExpressApp.Model
|
|
|
|
<DomainLogic(GetType(IModelMemberAllowSort))>
|
|
Public NotInheritable Class ModelMemberAllowSortLogic
|
|
Public Shared Function Get_AllowSort(ByVal modelMember As IModelMember) As Boolean
|
|
If modelMember Is Nothing Then
|
|
Return True
|
|
Else
|
|
If modelMember.MemberInfo Is Nothing Then
|
|
Return True
|
|
End If
|
|
Dim attribute As AllowSortAttribute = modelMember.MemberInfo.FindAttribute(Of AllowSortAttribute)()
|
|
If attribute IsNot Nothing Then
|
|
Return attribute.AllowSort
|
|
Else
|
|
Return True
|
|
End If
|
|
End If
|
|
End Function
|
|
End Class
|