jj: first usable version of lookup grid

LookupGrid/GridRegistration.vb

@@ -3,7 +3,8 @@ Imports DevExpress.XtraGrid.Views.Base
 Imports DevExpress.XtraGrid.Views.Base.Handler
 Imports DevExpress.XtraGrid.Registrator
 
-Public Class GridViewInfoRegistrator
+Namespace LookupGrid
+    Public Class GridViewInfoRegistrator
         Inherits GridInfoRegistrator
 
         Public Overrides ReadOnly Property ViewName() As String
@@ -12,7 +13,7 @@ Public Class GridViewInfoRegistrator
             End Get
         End Property
         Public Overrides Function CreateView(ByVal grid As GridControl) As BaseView
-            Return New LookupGridView(grid)
+            Return New LookupGridView(TryCast(grid, GridControl))
         End Function
         Public Overrides Function CreateHandler(ByVal view As BaseView) As BaseViewHandler
             Return New GridHandler(TryCast(view, LookupGridView))
@@ -20,3 +21,6 @@ Public Class GridViewInfoRegistrator
     End Class
 
 
+
+End Namespace
+