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:
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 baseEntitiesComponentsPublic Enum clientFlds
LastName = 0
FirstName = 1
ClientID = 2
Nofld = 3
End EnumEnd
ClassPrivate
_ClientID As StringPrivate
_LastName As StringPrivate
_FirstName As StringPrivate
_Address As StringPrivate
_State As StringPrivate
_TelephonNo As StringPrivate
_Cell As StringPrivate
_EmailAddress As StringPrivate
_BirthDate As StringPrivate
_FullName As String
Public
Property ClientNo() As String Get Return _ClientNo End Get Set(ByVal Value As String)_ClientNo = Value
End SetEnd
PropertyPublic
Property LastName() As String Get Return _LastName End Get Set(ByVal Value As String)_LastName = Value
End SetEnd
PropertyPublic
Property FirstName() As String Get Return _FirstName End Get Set(ByVal Value As String)_FirstName = Value
End SetEnd
PropertyPublic
Property Company() As String Get Return _Company End Get Set(ByVal Value As String)_Company = Value
End SetEnd
PropertyPublic
Property Address() As String Get Return _Address End Get Set(ByVal Value As String)_Address = Value
End SetEnd
PropertyPublic
Property TelephoneNo() As String Get Return _TelephoneNo End Get Set(ByVal Value As String)_TelephoneNo = Value
End SetEnd
PropertyPublic
Property Cell() As String Get Return _Cell End Get Set(ByVal Value As String)_Cell = Value
End SetEnd
PropertyPublic
Property EmailAddress() As String Get Return _EmailAddress End Get Set(ByVal Value As String)_EmailAddress = Value
End SetEnd
PropertyPublic
Property BirthDate() As String Get Return _BirthDate End Get Set(ByVal Value As String)_BirthDate = Value
End SetEnd
Property
Public
Property FirstName() As String Get Return _FirstName End Get Set(ByVal Value As String)_FirstName = Value
End SetEnd
Property
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