Error with ReadOnlyListBase(of Objects, ObjectInfo)

AKaplan posted on Tuesday, March 27, 2007

Error 39 Type argument 'CreativeKnights.Library.CreativeKnights.Web.Components.Commerce.Products' does not inherit from or implement the constraint type 'CreativeKnights.Library.CreativeKnights.ReadOnlyBase(Of CreativeKnights.Library.CreativeKnights.Web.Components.Commerce.Products)'. C:\Documents and Settings\Strangepain\My Documents\Visual Studio 2005\Projects\NewCK (2)\CreativeKnights.Library\CreativeKnights.Web.Components.Commerce.vb 4 32 CreativeKnights.Library

 

<Serializable()> _

Public Class Products

Inherits ReadOnlyListBase(Of Products, ProductInfo)

#Region "Factory Methods"

Public Shared Function GetProductList() As Products

Return DataPortal.Fetch(Of Products)(New Criteria)

End Function

Public Shared Function GetProductList(ByVal name As String) As Products

Return DataPortal.Fetch(Of Products)(New FilteredCriteria(name))

End Function

Public Sub New()

End Sub

#End Region

#Region "Data Access"

<Serializable()> _

Private Class Criteria

End Class

<Serializable()> _

Private Class FilteredCriteria

Private mName As String = ""

Public ReadOnly Property Name() As String

Get

Return mName

End Get

End Property

Public Sub New(ByVal name As String)

mName = name

End Sub

End Class

Private Overloads Sub dataportal_Fetch(ByVal criteria As Criteria)

Fetch("")

End Sub

Private Overloads Sub Dataportal_Fetch(ByVal criteria As FilteredCriteria)

Fetch(criteria.Name)

End Sub

Private Sub Fetch(ByVal nameFilter As String)

RaiseListChangedEvents = False

Using cn As New System.Data.SqlClient.SqlConnection()

cn.Open()

Using cm As System.Data.SqlClient.SqlCommand = cn.CreateCommand

With cm

.CommandType = System.Data.CommandType.StoredProcedure

.CommandText = ""

Using dr As New CreativeKnights.Data.SafeDataReader(.ExecuteReader)

IsReadOnly = False

While dr.Read

Dim info As New ProductInfo(dr.GetGuid(0), dr.GetString(1))

If Len(nameFilter) = 0 OrElse info.ModelName.IndexOf(nameFilter) Then

Me.Add(info)

End If

End While

IsReadOnly = True

End Using

End With

End Using

End Using

RaiseListChangedEvents = True

End Sub

#End Region

End Class

 

 

What am I doing wrong?