source/csla10/Backup/CSLA.Server.DataPortal/CriteriaBase.vb

@@ -0,0 +1,21 @@
+''' <summary>
+''' Base type from which Criteria classes can be
+''' derived in a business class. 
+''' </summary>
+<Serializable()> _
+Public MustInherit Class CriteriaBase
+  ''' <summary>
+  ''' Type of the business object to be instantiated by
+  ''' the server-side DataPortal. 
+  ''' </summary>
+  Public ObjectType As Type
+
+  ''' <summary>
+  ''' Initializes CriteriaBase with the type of
+  ''' business object to be created by the DataPortal.
+  ''' </summary>
+  Public Sub New(ByVal Type As Type)
+    ObjectType = Type
+  End Sub
+
+End Class