半岛外围网上直营

本示例演示了如何排序在一个过滤器下拉项进行自定义排序。

本示例中的CustomFilterPopupItems事件是用来管理筛选项目列表的。当最终用户调用过滤器下拉，就会引发这个事件。CustomFilterPopupItems事件参数提供访问过滤器的项目清单，如果相应的选项被选中，就会根据项目标题的长度对过滤器下拉项进行排序。

示例代码如下：

C#

using System;
using System.Collections;
using System.Windows.Forms;
using DevExpress.XtraPivotGrid;
using DevExpress.XtraPivotGrid.Data;

namespace XtraPivotGrid_ExampleTemplate {
    public partial class Form1 : Form {
        public Form1() {
            InitializeComponent();
        }
        private void Form1_Load(object sender, EventArgs e) {
            DataSet1TableAdapters.ProductReportsTableAdapter tableAdapter =
                new DataSet1TableAdapters.ProductReportsTableAdapter();
            pivotGridControl1.DataSource = tableAdapter.GetData();
            pivotGridControl1.BestFit();
        }
        private void pivotGridControl1_CustomFilterPopupItems(object sender, 
            PivotCustomFilterPopupItemsEventArgs e) {
            if(rbCaptionLength.Checked)
                ArrayList.Adapter((IList)e.Items).Sort(new FilterItemsComparer());
        }
        private void rbAlphabeticalSort_CheckedChanged(object sender, EventArgs e) {
            fieldProductName.ShowFilterPopup();
        }
    }
    public class FilterItemsComparer : IComparer {
        int IComparer.Compare(object x, object y) {
            if (!(x is PivotGridFilterItem) || !(y is PivotGridFilterItem)) return 0;
            PivotGridFilterItem item1 = (PivotGridFilterItem)x;
            PivotGridFilterItem item2 = (PivotGridFilterItem)y;
            if (item1.ToString().Length == item2.ToString().Length) return 0;
            if (item1.ToString().Length > item2.ToString().Length) return 1;
            return -1;
        }
    }
}

VB

Imports Microsoft.VisualBasic
Imports System
Imports System.Collections
Imports System.Windows.Forms
Imports DevExpress.XtraPivotGrid
Imports DevExpress.XtraPivotGrid.Data

Namespace XtraPivotGrid_ExampleTemplate
    Partial Public Class Form1
        Inherits Form
        Public Sub New()
            InitializeComponent()
        End Sub
        Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
            Dim tableAdapter As New DataSet1TableAdapters.ProductReportsTableAdapter()
            pivotGridControl1.DataSource = tableAdapter.GetData()
            pivotGridControl1.BestFit()
        End Sub
        Private Sub pivotGridControl1_CustomFilterPopupItems(ByVal sender As Object, _
                ByVal e As PivotCustomFilterPopupItemsEventArgs) _
                Handles pivotGridControl1.CustomFilterPopupItems
            If rbCaptionLength.Checked Then
                ArrayList.Adapter(CType(e.Items, IList)).Sort(New FilterItemsComparer())
            End If
        End Sub
        Private Sub rbAlphabeticalSort_CheckedChanged(ByVal sender As Object, ByVal e As EventArgs) _
                Handles rbAlphabeticalSort.CheckedChanged
            fieldProductName.ShowFilterPopup()
        End Sub
    End Class
    Public Class FilterItemsComparer
        Implements IComparer
        Private Function IComparer_Compare(ByVal x As Object, ByVal y As Object) As Integer _
                Implements IComparer.Compare
            If Not(TypeOf x Is PivotGridFilterItem) OrElse Not(TypeOf y Is PivotGridFilterItem) Then
                Return 0
            End If
            Dim item1 As PivotGridFilterItem = CType(x, PivotGridFilterItem)
            Dim item2 As PivotGridFilterItem = CType(y, PivotGridFilterItem)
            If item1.ToString().Length = item2.ToString().Length Then
                Return 0
            End If
            If item1.ToString().Length > item2.ToString().Length Then
                Return 1
            End If
            Return -1
        End Function
    End Class
End Namespace

慧都学院2017全新DevExpress线下研修班火热报名中！