-
Notifications
You must be signed in to change notification settings - Fork 1
/
DrillDownForm.vb
34 lines (29 loc) · 1016 Bytes
/
DrillDownForm.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
Imports System.Windows.Forms
Namespace XtraPivotGrid_CreateDrillDownDataSourceAsync
Partial Public Class DrillDownForm
Inherits Form
Public Sub New()
InitializeComponent()
AddHandler gridControl1.DataSourceChanged, AddressOf GridControl1_DataSourceChanged
End Sub
Private Sub GridControl1_DataSourceChanged(ByVal sender As Object, ByVal e As System.EventArgs)
ArrangeLayout()
End Sub
Public Property DataSource() As Object
Get
Return Me.gridControl1.DataSource
End Get
Set(ByVal value As Object)
Me.gridControl1.DataSource = value
End Set
End Property
Friend Sub ArrangeLayout()
gridView1.Columns("OrderDate").SummaryItem.SummaryType = DevExpress.Data.SummaryItemType.Count
gridView1.Columns("OrderDate").DisplayFormat.FormatType = DevExpress.Utils.FormatType.DateTime
gridView1.Columns("Country").Group()
gridView1.Columns("City").Group()
gridView1.Columns("ProductName").Group()
gridView1.ExpandAllGroups()
End Sub
End Class
End Namespace