This repository has been archived by the owner on Sep 11, 2023. It is now read-only.
/
E1759.vb
42 lines (40 loc) · 1.82 KB
/
E1759.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
Imports System
Imports System.Data
Imports System.Collections
Imports DevExpress.XtraGrid
Imports System.Windows.Forms
Imports DevExpress.XtraGrid.Columns
Imports DevExpress.XtraGrid.Views.Grid
Imports DevExpress.XtraGrid.Views.Base
Imports DevExpress.XtraEditors.Controls
Namespace WindowsApplication1
Public Class E1759
Private Shared Function GetData() As DataTable
Dim dt As New DataTable()
dt.Columns.Add("ID", GetType(Integer))
dt.Columns.Add("Category", GetType(String))
dt.Columns.Add("Product", GetType(String))
dt.Columns.Add("Price", GetType(Single))
dt.Columns.Add("Quantity", GetType(Single))
dt.Rows.Add(New Object() { 1, "Beverages", "Chai", 1.6, 319 })
dt.Rows.Add(New Object() { 2, "Beverages", "Chai", 6295.5, 399 })
dt.Rows.Add(New Object() { 3, "Beverages", "Ipoh Coffee", 10034.9, 228 })
dt.Rows.Add(New Object() { 4, "Confections", "Chocolade", 1282.1, 130 })
dt.Rows.Add(New Object() { 5, "Confections", "Chocolade", 86.7, 8 })
dt.Rows.Add(New Object() { 6, "Confections", "Scottish Longbreads", 3909.0, 380 })
Return dt
End Function
Public Shared Sub Init(ByVal form As Form)
form.Text = "E1759"
GridView.GuessAutoFilterRowValuesFromFilterAfterRestoreLayout = True
Dim grid As New GridControl()
grid.Dock = DockStyle.Fill
form.Controls.Add(grid)
grid.DataSource = GetData()
grid.ForceInitialize()
Dim view As GridView = CType(grid.DefaultView, GridView)
view.RestoreLayoutFromStream(GetType(E1759).Assembly.GetManifestResourceStream("layout.xml"))
'view.GuessAutoFilterRowValuesFromFilter()
End Sub
End Class
End Namespace