namespace

I am new to vb.net 2003. 
I am trying to code a save button to have the data append to a backend. I'm getting a "statement not a valid namespace" and "Company is not a member of ClientENT" Can someone help me:

Public Class ClientENT

Inherits baseEntitiesComponents

 

Public Enum clientFlds

LastName = 0

FirstName = 1

ClientID = 2

Nofld = 3

End Enum

End Class

Private _ClientID As String

Private _LastName As String

Private _FirstName As String

Private _Address As String

Private _State As String

Private _TelephonNo As String

Private _Cell As String

Private _EmailAddress As String

Private _BirthDate As String

Private _FullName As String

 

Public Property ClientNo() As String

Get

Return _ClientNo

End Get

Set(ByVal Value As String)

_ClientNo = Value

End Set

End Property

Public Property LastName() As String

Get

Return _LastName

End Get

Set(ByVal Value As String)

_LastName = Value

End Set

End Property

Public Property FirstName() As String

Get

Return _FirstName

End Get

Set(ByVal Value As String)

_FirstName = Value

End Set

End Property

Public Property Company() As String

Get

Return _Company

End Get

Set(ByVal Value As String)

_Company = Value

End Set

End Property

Public Property Address() As String

Get

Return _Address

End Get

Set(ByVal Value As String)

_Address = Value

End Set

End Property

Public Property TelephoneNo() As String

Get

Return _TelephoneNo

End Get

Set(ByVal Value As String)

_TelephoneNo = Value

End Set

End Property

Public Property Cell() As String

Get

Return _Cell

End Get

Set(ByVal Value As String)

_Cell = Value

End Set

End Property

Public Property EmailAddress() As String

Get

Return _EmailAddress

End Get

Set(ByVal Value As String)

_EmailAddress = Value

End Set

End Property

Public Property BirthDate() As String

Get

Return _BirthDate

End Get

Set(ByVal Value As String)

_BirthDate = Value

End Set

End Property

 

Public Property FirstName() As String

Get

Return _FirstName

End Get

Set(ByVal Value As String)

_FirstName = Value

End Set

End Property



Answer this question

namespace

  • MarnieV

    There a couple of things wrong:

    1. You are missing a declaration of the _Company , _ClientNo and _TelephoneNo fields.
    2. You have duplicated the declaration of the FireName property
    2. Your End Class statement should be at the bottom of the file

    Try this:


    Public Class ClientENT
        Inherits baseEntitiesComponents

        Public Enum clientFlds

            LastName = 0

            FirstName = 1

            ClientID = 2

            Nofld = 3

        End Enum
        Private _ClientID As String
        Private _LastName As String
        Private _FirstName As String
        Private _Address As String
        Private _State As String
        Private _TelephonNo As String
        Private _Cell As String
        Private _EmailAddress As String
        Private _BirthDate As String
        Private _FullName As String
        Private _Company As String
        Private _TelephoneNo As String
        Private _ClientNo As String

     

        Public Property ClientNo() As String

            Get

                Return _ClientNo

            End Get

            Set(ByVal Value As String)

                _ClientNo = Value

            End Set

        End Property

        Public Property LastName() As String

            Get

                Return _LastName

            End Get

            Set(ByVal Value As String)

                _LastName = Value

            End Set

        End Property

        Public Property FirstName() As String

            Get

                Return _FirstName

            End Get

            Set(ByVal Value As String)

                _FirstName = Value

            End Set

        End Property

        Public Property Company() As String

            Get

                Return _Company

            End Get

            Set(ByVal Value As String)

                _Company = Value

            End Set

        End Property

        Public Property Address() As String

            Get

                Return _Address

            End Get

            Set(ByVal Value As String)

                _Address = Value

            End Set

        End Property

        Public Property TelephoneNo() As String

            Get

                Return _TelephoneNo

            End Get

            Set(ByVal Value As String)

                _TelephoneNo = Value

            End Set

        End Property

        Public Property Cell() As String

            Get

                Return _Cell

            End Get

            Set(ByVal Value As String)

                _Cell = Value

            End Set

        End Property

        Public Property EmailAddress() As String

            Get

                Return _EmailAddress

            End Get

            Set(ByVal Value As String)

                _EmailAddress = Value

            End Set

        End Property

        Public Property BirthDate() As String

            Get

                Return _BirthDate

            End Get

            Set(ByVal Value As String)

                _BirthDate = Value

            End Set

        End Property
    End Class


     



  • mischa123

    Great! that worked.  Thank you
  • namespace