473,320 Members | 2,180 Online
Bytes | Software Development & Data Engineering Community
Post Job

Home Posts Topics Members FAQ

Join Bytes to post your question to a community of 473,320 software developers and data experts.

Error: No default member found for type MyClass

Dear Friends
I have a urgent problem to solve. I have created a class and its
collection and then bind it to a datagrid but got the following error.
Please help. Thanks in advance. Andy Eshtry

No default member found for type 'clsAgentPostalCode'

Line 44: Dim oAgentPostalCodeCollection As New

clsAgentPostalCodeCollection(lAgentID)
Line 45: dgPostalCode.DataSource = oAgentPostalCodeCollection
Line 46: dgPostalCode.DataBind()

----------------------------code in aspx
file ---------------------------------------
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load

If Not Page.IsPostBack Then

dgPostalCode.DataKeyField = "AssignedPostalCodeID"
'dgPostalCode.DataSource = GetPostalCodeList()
Dim oAgentPostalCodeCollection As New
clsAgentPostalCodeCollection(lAgentID)
dgPostalCode.DataSource = oAgentPostalCodeCollection
dgPostalCode.DataBind()

End If
End Sub
--------------------clsAgentPostalCode -------------------------------------
------

Public Class clsAgentPostalCode
Public mAgentPostalCodeID As Long
Public mAssignedPostalCodeID As Long
Public mAgentID As Long
Public mAssignedPostalCode As String
Private mSelected As Boolean
Private mPrevSelected As Boolean

Public ReadOnly Property AgentPostalCodeID() As Long
Get
Return mAgentPostalCodeID
End Get
End Property

Public ReadOnly Property AgentID() As Long
Get
Return mAgentID
End Get
End Property

Public ReadOnly Property AssignedPostalCode() As String
Get
Return mAssignedPostalCode
End Get
End Property
Public ReadOnly Property AssignedPostalCodeID() As Long
Get
Return mAssignedPostalCodeID
End Get
End Property

Public Sub New(ByVal parAssignedPostalCodeID As Long, ByVal parSelected
As Boolean, _
ByVal parAssignedPostalCode As String, ByVal parAgentPostalCodeID As
Long, ByVal parAgentID

As Long)
mAgentPostalCodeID = parAgentPostalCodeID
mAssignedPostalCodeID = parAssignedPostalCodeID

mAgentID = parAgentID
mSelected = parSelected
mPrevSelected = parSelected
mAssignedPostalCode = parAssignedPostalCode
End Sub

Public Property Selected() As Boolean
Get
Return Selected
End Get
Set(ByVal Value As Boolean)
Selected = Value
End Set
End Property
End Sub
End Class

---------------------clsAgentPostalCodeCollection-----------------------

Imports System.Collections
Public Class clsAgentPostalCodeCollection
Inherits CollectionBase

Public Sub New(ByVal parAgentID As Long)
Dim sConStr As String
Dim oConfSetting As ConfigurationSettings
sConStr = oConfSetting.AppSettings("ConStr").ToString()
Dim Cn As SqlConnection
Dim daPostalCode As SqlDataAdapter
Dim dsPostalCode As New DataSet()
Try
Cn = New SqlConnection(sConStr)

Dim cmdSel As SqlCommand = New
SqlCommand("spAgentAssignedPostalCode", Cn)
cmdSel.CommandType = CommandType.StoredProcedure
cmdSel.Parameters.Add(New SqlParameter("@AgentID", parAgentID))
Cn.Open()
daPostalCode = New SqlDataAdapter(cmdSel)
daPostalCode.Fill(dsPostalCode, "tblPostalCode")
Cn.Close()

Dim AgentPostalCodeRow As DataRow
For Each AgentPostalCodeRow In
dsPostalCode.Tables("tblPostalCode").Rows
Dim par1 As Long =
AgentPostalCodeRow.Item("AssignedPostalCodeID")
Dim par2 As Boolean = AgentPostalCodeRow.Item("Selected")
Dim par3 As String =
AgentPostalCodeRow.Item("AssignedPostalCode")
Dim par4 As Long
If Not
IsDBNull(AgentPostalCodeRow.Item("AgentPostalCodeI D")) Then
par4 = AgentPostalCodeRow.Item("AgentPostalCodeID")
Else
par4 = 0
End If
Dim par5 As Long

If Not IsDBNull(AgentPostalCodeRow.Item("ID_Agent")) Then
par5 = AgentPostalCodeRow.Item("ID_Agent")
Else
par5 = 0
End If

Dim AgentPostalCodeItem As New clsAgentPostalCode(par1,
par2, par3, par4, par5)
Add(AgentPostalCodeItem)
Next
Catch ex As Exception
Throw ex
End Try

End Sub

Public Sub Add(ByVal AgentPostalCodeItem As clsAgentPostalCode)

List.Add(AgentPostalCodeItem)
End Sub

Public Sub Remove(ByVal index As Integer)

If (index > Count - 1 Or index < 0) Then

Else
List.RemoveAt(index)

End If
End Sub

Public Function Item(ByVal Index As Integer) As clsAgentPostalCode

Return CType(List(Index), clsAgentPostalCode)
End Function

Public ReadOnly Property Length() As Long
Get
Return List.Count
End Get
End Property

Public Function Find(ByVal id As Long) As clsAgentPostalCode
Dim AgentPostalCodeItem As clsAgentPostalCode

For Each AgentPostalCodeItem In InnerList
If AgentPostalCodeItem.AgentPostalCodeID = id Then
Return AgentPostalCodeItem
End If
Next
Return Nothing
End Function

End Class

Jul 21 '05 #1
0 1410

This thread has been closed and replies have been disabled. Please start a new discussion.

Similar topics

2
by: AIM | last post by:
Error in msvc in building inheritance.obj to build hello.pyd Hello, I am trying to build the boost 1.31.0 sample extension hello.cpp. I can not compile the file inheritance.cpp because the two...
4
by: Serge | last post by:
Hi, I have no problem creating a static member variable with integers, etc but when I try the same with a vector then I always get linker errors that the static member variable is unknown...
5
by: Enos Meroka | last post by:
Hallo, I am a student doing my project in the university.. I have been trying to compile the program using HP -UX aCC compiler, however I keep on getting the following errors. ...
6
by: Peter Frost | last post by:
Please help I don't know if this is possible but what I would really like to do is to use On Error Goto to capture the code that is being executed when an error occurs. Any help would be much...
3
by: Andy Eshtry | last post by:
Dear Friends I have a urgent problem to solve. I have created a class and its collection and then bind it to a datagrid but got the following error. Please help. Thanks in advance. Andy Eshtry ...
2
by: Christoph Boget | last post by:
Let's take the following class: class MyClass { private int privateVar; public int PublicVar { get { return privateVar; } } public MyClass() {}
0
by: HKSHK | last post by:
This list compares the error codes used in VB.NET 2003 with those used in VB6. Error Codes: ============ 3: This Error number is obsolete and no longer used. (Formerly: Return without GoSub)...
14
by: Neviton | last post by:
Help with this error ! Please ! The code below is simplified, because I'm trying to solve this error. ....MyClass.cpp In member function `void MyClass::Initialize()': ....MyClass.cpp aggregate...
10
by: happyse27 | last post by:
Hi All, I got this apache errors(see section A1 and A2 below) when I used a html(see section b below) to activate acctman.pl(see section c below). Section D below is part of the configuration...
0
by: DolphinDB | last post by:
The formulas of 101 quantitative trading alphas used by WorldQuant were presented in the paper 101 Formulaic Alphas. However, some formulas are complex, leading to challenges in calculation. Take...
0
by: DolphinDB | last post by:
Tired of spending countless mintues downsampling your data? Look no further! In this article, you’ll learn how to efficiently downsample 6.48 billion high-frequency records to 61 million...
0
by: ryjfgjl | last post by:
ExcelToDatabase: batch import excel into database automatically...
0
isladogs
by: isladogs | last post by:
The next Access Europe meeting will be on Wednesday 6 Mar 2024 starting at 18:00 UK time (6PM UTC) and finishing at about 19:15 (7.15PM). In this month's session, we are pleased to welcome back...
1
isladogs
by: isladogs | last post by:
The next Access Europe meeting will be on Wednesday 6 Mar 2024 starting at 18:00 UK time (6PM UTC) and finishing at about 19:15 (7.15PM). In this month's session, we are pleased to welcome back...
0
by: jfyes | last post by:
As a hardware engineer, after seeing that CEIWEI recently released a new tool for Modbus RTU Over TCP/UDP filtering and monitoring, I actively went to its official website to take a look. It turned...
0
by: ArrayDB | last post by:
The error message I've encountered is; ERROR:root:Error generating model response: exception: access violation writing 0x0000000000005140, which seems to be indicative of an access violation...
1
by: Shællîpôpï 09 | last post by:
If u are using a keypad phone, how do u turn on JavaScript, to access features like WhatsApp, Facebook, Instagram....
0
by: Faith0G | last post by:
I am starting a new it consulting business and it's been a while since I setup a new website. Is wordpress still the best web based software for hosting a 5 page website? The webpages will be...

By using Bytes.com and it's services, you agree to our Privacy Policy and Terms of Use.

To disable or enable advertisements and analytics tracking please visit the manage ads & tracking page.