This repository has been archived by the owner on Sep 11, 2023. It is now read-only.
-
Notifications
You must be signed in to change notification settings - Fork 0
/
Form1.vb
50 lines (42 loc) · 2.04 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
Imports Microsoft.VisualBasic
Imports System
Imports System.Data
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Drawing
Imports System.Text
Imports System.Windows.Forms
Imports DevExpress.XtraGrid.Views.Grid
Imports System.Data.OleDb
Namespace FilteringDetails
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 MyBase.Load
Dim connection As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source = .\nwind.mdb")
Dim AdapterCategories As New OleDbDataAdapter("SELECT CustomerID, CompanyName, ContactName FROM Customers", connection)
Dim AdapterProducts As New OleDbDataAdapter("SELECT OrderID, CustomerID, EmployeeID, OrderDate FROM Orders", connection)
Dim dataSet11 As New DataSet()
AdapterCategories.Fill(dataSet11, "Customers")
AdapterProducts.Fill(dataSet11, "Orders")
Dim keyColumn As DataColumn = dataSet11.Tables("Customers").Columns("CustomerID")
Dim foreignKeyColumn As DataColumn = dataSet11.Tables("Orders").Columns("CustomerID")
dataSet11.Relations.Add("CustomersOrders", keyColumn, foreignKeyColumn)
gridControl1.DataSource = dataSet11.Tables("Customers")
gridControl1.ForceInitialize()
Dim gridView2 As New GridView(gridControl1)
gridControl1.LevelTree.Nodes.Add("CustomersOrders", gridView2)
gridView1.Columns("CustomerID").VisibleIndex = -1
gridView2.PopulateColumns(dataSet11.Tables("Orders"))
gridView2.Columns("CustomerID").VisibleIndex = -1
gridView2.SynchronizeClones = False
End Sub
Private Sub gridView1_MasterRowExpanded(ByVal sender As Object, ByVal e As CustomMasterRowEventArgs) Handles gridView1.MasterRowExpanded
Dim detailView As GridView = TryCast((TryCast(sender, GridView)).GetDetailView(e.RowHandle, e.RelationIndex), GridView)
detailView.ClearColumnsFilter()
detailView.Columns("EmployeeID").FilterInfo = New DevExpress.XtraGrid.Columns.ColumnFilterInfo(3, "3")
End Sub
End Class
End Namespace