/
Form1.vb
38 lines (34 loc) · 1.26 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
Imports Microsoft.VisualBasic
Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Linq
Imports System.Text
Imports System.Windows.Forms
Imports DevExpress.XtraEditors.Repository
Imports DevExpress.XtraGrid.Columns
Namespace EntitiesLookupWithEditing
Partial Public Class Form1
Inherits Form
Public Sub New()
InitializeComponent()
End Sub
Private entities As New NorthwindEntities()
Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
gridView1.Columns.AddField("ProductName").Visible = True
Dim column As GridColumn = gridView1.Columns.AddField("Categories")
Dim editor As RepositoryItemLookUpEdit = CType(gridControl1.RepositoryItems.Add("LookUpEdit"), RepositoryItemLookUpEdit)
editor.DataSource = entities.Categories
editor.DisplayMember = "CategoryName"
editor.Columns.Add(New DevExpress.XtraEditors.Controls.LookUpColumnInfo("CategoryName"))
column.ColumnEdit = editor
column.Visible = True
gridControl1.DataSource = entities.Products
End Sub
Private Sub simpleButton1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles simpleButton1.Click
entities.SaveChanges()
End Sub
End Class
End Namespace