This repository has been archived by the owner on Oct 2, 2023. It is now read-only.
/
Form1.vb
55 lines (47 loc) · 2.31 KB
/
Form1.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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
Imports System
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Windows.Forms
Imports DevExpress.XtraPrinting
Imports DevExpress.XtraPivotGrid
Namespace WindowsApplication53
Public Partial Class Form1
Inherits Form
Public Sub New()
InitializeComponent()
End Sub
Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs)
PopulateTable()
pivotGridControl1.RefreshData()
pivotGridControl1.BestFit()
pivotGridControl1.FieldsCustomization(panel1)
End Sub
Private Sub PopulateTable()
Dim myTable As DataTable = dataSet1.Tables("Data")
myTable.Rows.Add(New Object() {"Aaa", Date.Today, 7})
myTable.Rows.Add(New Object() {"Aaa", Date.Today.AddDays(1), 4})
myTable.Rows.Add(New Object() {"Bbb", Date.Today, 12})
myTable.Rows.Add(New Object() {"Bbb", Date.Today.AddDays(1), 14})
myTable.Rows.Add(New Object() {"Ccc", Date.Today, 11})
myTable.Rows.Add(New Object() {"Ccc", Date.Today.AddDays(1), 10})
myTable.Rows.Add(New Object() {"Aaa", Date.Today.AddYears(1), 4})
myTable.Rows.Add(New Object() {"Aaa", Date.Today.AddYears(1).AddDays(1), 2})
myTable.Rows.Add(New Object() {"Bbb", Date.Today.AddYears(1), 3})
myTable.Rows.Add(New Object() {"Bbb", Date.Today.AddDays(1).AddYears(1), 1})
myTable.Rows.Add(New Object() {"Ccc", Date.Today.AddYears(1), 8})
myTable.Rows.Add(New Object() {"Ccc", Date.Today.AddDays(1).AddYears(1), 22})
End Sub
Private Sub simpleButton1_Click(ByVal sender As Object, ByVal e As EventArgs)
For Each field As PivotGridField In pivotGridControl1.Fields
field.Caption = MyPivotGridControl.ImagePlaceHolder & field.Caption
Next
pivotGridControl1.ShowPrintPreview()
For Each field As PivotGridField In pivotGridControl1.Fields
field.Caption = field.Caption.Substring(MyPivotGridControl.ImagePlaceHolder.Length)
Next
End Sub
Private Sub pivotGridControl1_CustomExportHeader(ByVal sender As Object, ByVal e As DevExpress.XtraPivotGrid.CustomExportHeaderEventArgs)
End Sub
End Class
End Namespace