-
Notifications
You must be signed in to change notification settings - Fork 0
/
Form1.vb
41 lines (37 loc) · 1.25 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
Imports Microsoft.VisualBasic
Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Text
Imports System.Windows.Forms
Imports DevExpress.Xpo
Imports DevExpress.Xpo.DB
Imports DevExpress.XtraEditors.Filtering
Imports DXSample
Imports Northwind
Imports DevExpress.Xpo.Metadata
Imports DevExpress.XtraEditors.Controls
Namespace Q200298
Partial Public Class Form1
Inherits Form
Public Sub New()
XpoDefault.ConnectionString = AccessConnectionProvider.GetConnectionString("..\..\nwind.mdb")
InitializeComponent()
End Sub
Private Sub OnApplyFilterClick(ByVal sender As Object, ByVal e As EventArgs) Handles button1.Click
filterControl1.ApplyFilter()
End Sub
Private Sub OnhProductsCustomDisplayText(ByVal sender As Object, ByVal e As CustomDisplayTextEventArgs)
If e.DisplayText = String.Empty Then
Dim o As Object = e.Value
End If
End Sub
Private Sub filteredXPComponent1_CustomFilterColumnEditor(ByVal sender As Object, ByVal e As CustomHelperFilterColumnEditorEventArgs) Handles filteredXPComponent1.CustomFilterColumnEditor
If e.Column.FieldName = "ProductID.CategoryID!Key" Then
e.Editor = leCategories
End If
End Sub
End Class
End Namespace