DevExpress如何实现自定义求和

zhouxuxuxiu

概述：DevExpress实现自定义求和的效果图及事例代码

自定义求和的效果图如下:

代码如下：

C#

[size=1em]

[size=1em]1 [size=1em]2 [size=1em]3 [size=1em]4 [size=1em]5 [size=1em]6 [size=1em]7 [size=1em]8 [size=1em]9 [size=1em]10 [size=1em]11 [size=1em]12 [size=1em]13 [size=1em]14 [size=1em]15 [size=1em]16 [size=1em]17 [size=1em]18 [size=1em]19 [size=1em]20 [size=1em]21 [size=1em]22 [size=1em]23 [size=1em]24 [size=1em]25 [size=1em]26 [size=1em]27 [size=1em]28 [size=1em]29 [size=1em]30

[size=1em][size=1em]using DevExpress.XtraPivotGrid; [size=1em]fieldExtendedPrice.Caption = "Percentage of Orders over $500"; [size=1em]// Enable a custom summary calculation for the Extended Price field. [size=1em]fieldExtendedPrice.SummaryType = DevExpress.Data.PivotGrid.PivotSummaryType.Custom; [size=1em]// Specify the settings used to format values. [size=1em]fieldExtendedPrice.CellFormat.FormatType = DevExpress.Utils.FormatType.Numeric; [size=1em]fieldExtendedPrice.CellFormat.FormatString = "p"; [size=1em]int minSum = 500; [size=1em]private void pivotGridControl1_CustomSummary(object sender, [size=1em]  PivotGridCustomSummaryEventArgs e) { [size=1em]   if(e.DataField != fieldExtendedPrice) return; [size=1em]   // A variable which counts the number of orders whose sum exceeds $500. [size=1em]   int order500Count = 0; [size=1em]   // Get the record set corresponding to the current cell. [size=1em]   PivotDrillDownDataSource ds = e.CreateDrillDownDataSource(); [size=1em]   // Iterate through the records and count the orders. [size=1em]   for(int i = 0; i < ds.RowCount; i++) { [size=1em]      PivotDrillDownDataRow row = ds; [size=1em]      // Get the order's total sum. [size=1em]      decimal orderSum = (decimal)row[fieldExtendedPrice]; [size=1em]      if(orderSum >= minSum) order500Count ++; [size=1em]   } [size=1em]   // Calculate the percentage. [size=1em]   if(ds.RowCount > 0) { [size=1em]      e.CustomValue = (decimal)order500Count/ds.RowCount; [size=1em]   } [size=1em]}

VB

[size=1em]

[size=1em]1 [size=1em]2 [size=1em]3 [size=1em]4 [size=1em]5 [size=1em]6 [size=1em]7 [size=1em]8 [size=1em]9 [size=1em]10 [size=1em]11 [size=1em]12 [size=1em]13 [size=1em]14 [size=1em]15 [size=1em]16 [size=1em]17 [size=1em]18 [size=1em]19 [size=1em]20 [size=1em]21 [size=1em]22 [size=1em]23 [size=1em]24 [size=1em]25 [size=1em]26 [size=1em]27 [size=1em]28 [size=1em]29 [size=1em]30 [size=1em]31

[size=1em][size=1em]Imports DevExpress.XtraPivotGrid [size=1em]fieldExtendedPrice.Caption = "Percentage of Orders over $500" [size=1em]' Enable a custom summary calculation for the Extended Price field. [size=1em]fieldExtendedPrice.SummaryType = DevExpress.Data.PivotGrid.PivotSummaryType.Custom [size=1em]' Specify the settings used to format values. [size=1em]fieldExtendedPrice.CellFormat.FormatType = DevExpress.Utils.FormatType.Numeric [size=1em]fieldExtendedPrice.CellFormat.FormatString = "p" [size=1em]Dim minSum As Integer = 500 [size=1em]Private Sub PivotGridControl1_CustomSummary(ByVal sender As Object, _ [size=1em]  ByVal e As PivotGridCustomSummaryEventArgs) Handles PivotGridControl1.CustomSummary [size=1em]   If Not e.DataField Is fieldExtendedPrice Then Return [size=1em]   ' A variable which counts the number of orders whose sum exceeds $500. [size=1em]   Dim order500Count As Integer = 0 [size=1em]   ' Get the record set corresponding to the current cell. [size=1em]   Dim ds As PivotDrillDownDataSource = e.CreateDrillDownDataSource() [size=1em]   ' Iterate through the records and count the orders. [size=1em]   Dim i As Integer [size=1em]   For i = 0 To ds.RowCount - 1 [size=1em]      Dim row As PivotDrillDownDataRow = ds(i) [size=1em]      ' Get the order's total sum. [size=1em]      Dim orderSum As Decimal = row(fieldExtendedPrice) [size=1em]      If orderSum >= minSum Then order500Count = order500Count + 1 [size=1em]   Next [size=1em]   ' Calculate the percentage. [size=1em]   If ds.RowCount > 0 Then [size=1em]      e.CustomValue = order500Count / ds.RowCount [size=1em]   End If [size=1em]End Sub

更多资讯

bingw001

晕,这可怎么看啦

zhouxuxuxiu

bingw001 发表于 2015-9-24 22:51
晕,这可怎么看啦

呀，居然看不见了
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
using DevExpress.XtraPivotGrid;

fieldExtendedPrice.Caption = "Percentage of Orders over $500";
// Enable a custom summary calculation for the Extended Price field.
fieldExtendedPrice.SummaryType = DevExpress.Data.PivotGrid.PivotSummaryType.Custom;
// Specify the settings used to format values.
fieldExtendedPrice.CellFormat.FormatType = DevExpress.Utils.FormatType.Numeric;
fieldExtendedPrice.CellFormat.FormatString = "p";

int minSum = 500;

private void pivotGridControl1_CustomSummary(object sender,
  PivotGridCustomSummaryEventArgs e) {
   if(e.DataField != fieldExtendedPrice) return;
   // A variable which counts the number of orders whose sum exceeds $500.
   int order500Count = 0;
   // Get the record set corresponding to the current cell.
   PivotDrillDownDataSource ds = e.CreateDrillDownDataSource();
   // Iterate through the records and count the orders.
   for(int i = 0; i < ds.RowCount; i++) {
      PivotDrillDownDataRow row = ds;
      // Get the order's total sum.
      decimal orderSum = (decimal)row[fieldExtendedPrice];
      if(orderSum >= minSum) order500Count ++;
   }
   // Calculate the percentage.
   if(ds.RowCount > 0) {
      e.CustomValue = (decimal)order500Count/ds.RowCount;
   }
}
VB

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Imports DevExpress.XtraPivotGrid

fieldExtendedPrice.Caption = "Percentage of Orders over $500"
' Enable a custom summary calculation for the Extended Price field.
fieldExtendedPrice.SummaryType = DevExpress.Data.PivotGrid.PivotSummaryType.Custom
' Specify the settings used to format values.
fieldExtendedPrice.CellFormat.FormatType = DevExpress.Utils.FormatType.Numeric
fieldExtendedPrice.CellFormat.FormatString = "p"

Dim minSum As Integer = 500

Private Sub PivotGridControl1_CustomSummary(ByVal sender As Object, _
  ByVal e As PivotGridCustomSummaryEventArgs) Handles PivotGridControl1.CustomSummary
   If Not e.DataField Is fieldExtendedPrice Then Return
   ' A variable which counts the number of orders whose sum exceeds $500.
   Dim order500Count As Integer = 0
   ' Get the record set corresponding to the current cell.
   Dim ds As PivotDrillDownDataSource = e.CreateDrillDownDataSource()
   ' Iterate through the records and count the orders.
   Dim i As Integer
   For i = 0 To ds.RowCount - 1
      Dim row As PivotDrillDownDataRow = ds(i)
      ' Get the order's total sum.
      Dim orderSum As Decimal = row(fieldExtendedPrice)
      If orderSum >= minSum Then order500Count = order500Count + 1
   Next
   ' Calculate the percentage.
   If ds.RowCount > 0 Then
      e.CustomValue = order500Count / ds.RowCount
   End If
End Sub

bingw001

哇,谢谢楼主给修复了