This repository has been archived by the owner on Oct 2, 2023. It is now read-only.
/
Form1.vb
51 lines (45 loc) · 2.03 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
Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Text
Imports System.Windows.Forms
Imports DevExpress.XtraPrinting
Namespace WindowsApplication53
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 Me.Load
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", DateTime.Today, 7})
myTable.Rows.Add(New Object() { "Aaa", DateTime.Today.AddDays(1), 4 })
myTable.Rows.Add(New Object() { "Bbb", DateTime.Today, 12 })
myTable.Rows.Add(New Object() { "Bbb", DateTime.Today.AddDays(1), 14 })
myTable.Rows.Add(New Object() { "Ccc", DateTime.Today, 11 })
myTable.Rows.Add(New Object() { "Ccc", DateTime.Today.AddDays(1), 10 })
myTable.Rows.Add(New Object() { "Aaa", DateTime.Today.AddYears(1), 4 })
myTable.Rows.Add(New Object() { "Aaa", DateTime.Today.AddYears(1).AddDays(1), 2 })
myTable.Rows.Add(New Object() { "Bbb", DateTime.Today.AddYears(1), 3 })
myTable.Rows.Add(New Object() { "Bbb", DateTime.Today.AddDays(1).AddYears(1), 1 })
myTable.Rows.Add(New Object() { "Ccc", DateTime.Today.AddYears(1), 8 })
myTable.Rows.Add(New Object() { "Ccc", DateTime.Today.AddDays(1).AddYears(1), 22 })
End Sub
Private Sub simpleButton1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles simpleButton1.Click
pivotGridControl1.ShowPrintPreview()
End Sub
Private Sub pivotGridControl1_CustomExportHeader(ByVal sender As Object, ByVal e As DevExpress.XtraPivotGrid.CustomExportHeaderEventArgs) Handles pivotGridControl1.CustomExportHeader
'TextBrick brick = e.Brick as TextBrick;
'if (brick != null)
' brick.Size = new SizeF(brick.Size.Width, brick.Size.Height * 2);
End Sub
End Class
End Namespace