TestGUI: Update frmLookup

GUIs.Test.TestGUI/frmLookup.vb

@@ -1,5 +1,7 @@
 Imports System.Globalization
 Imports DevExpress.XtraEditors.Controls
+Imports DevExpress.XtraEditors.Repository
+Imports DevExpress.XtraGrid.Columns
 Imports DigitalData.Controls.LookupGrid
 
 Public Class frmLookup
@@ -52,6 +54,16 @@ Public Class frmLookup
 
         LookupControl34.Properties.AllowAddNewValues = True
         LookupControl34.Properties.MultiSelect = True
+
+        Dim oEditor As New RepositoryItemLookupControl3 With {
+            .DisplayMember = "Col1",
+            .ValueMember = "Col1"
+        }
+
+        GridControl1.RepositoryItems.Add(oEditor)
+        oEditor.DataSource = oTable
+        GridView1.Columns.Item(0).ColumnEdit = oEditor
+        GridControl1.DataSource = oTable
     End Sub
 
     Private Function GetDatatable(Limit As Integer) As DataTable