Hi All,
I've got 2 classes, one called row and one called value. The row class has an array of value as one of its properties. The row class also has a property called flag which will contain an enum for how it has changed.
on the setter for value i was hoping to update the flag property of row, but i cant work out how to do it via modern OO. Here's the code:
Public Class Row
'Variables
Private values_local() As Value
Private flag_local As DataFlags
'Properties
Property values() As Value()
Get
Return Me.values_local
End Get
Set(ByVal values_new As Value())
Me.values_local = values_new
End Set
End Property
Property flag() As DataFlags
Get
Return Me.flag_local
End Get
Set(ByVal flag_new As DataFlags)
Me.flag_local = DataFlags.update
End Set
End Property
'Constructors
Public Sub New()
End Sub
End Class
Public Class Value
'Variables
Private value_local As Object
'Properties
Property value() As Object
Get
Return Me.value_local
End Get
Set(ByVal value_new As Object)
Me.value_local = value_new
'NEED TO SET THE FLAG OF THE ROW WHICH CONTAINS VALUE HERE!
End Set
End Property
'Constructors
Public Sub New(ByVal value As Object)
'add new custom data types into this if statement for ie: a sql server geometry object
If value.GetType().ToString() = Datatypes.sdo_geometry Then
Me.value_local = New SdoGeometry
Me.value_local = DirectCast(value, SdoGeometry)
Else
Me.value_local = New Data(value)
End If
End Sub
End Class
Any help of thought greatly appreciated...
I've got 2 classes, one called row and one called value. The row class has an array of value as one of its properties. The row class also has a property called flag which will contain an enum for how it has changed.
on the setter for value i was hoping to update the flag property of row, but i cant work out how to do it via modern OO. Here's the code:
Public Class Row
'Variables
Private values_local() As Value
Private flag_local As DataFlags
'Properties
Property values() As Value()
Get
Return Me.values_local
End Get
Set(ByVal values_new As Value())
Me.values_local = values_new
End Set
End Property
Property flag() As DataFlags
Get
Return Me.flag_local
End Get
Set(ByVal flag_new As DataFlags)
Me.flag_local = DataFlags.update
End Set
End Property
'Constructors
Public Sub New()
End Sub
End Class
Public Class Value
'Variables
Private value_local As Object
'Properties
Property value() As Object
Get
Return Me.value_local
End Get
Set(ByVal value_new As Object)
Me.value_local = value_new
'NEED TO SET THE FLAG OF THE ROW WHICH CONTAINS VALUE HERE!
End Set
End Property
'Constructors
Public Sub New(ByVal value As Object)
'add new custom data types into this if statement for ie: a sql server geometry object
If value.GetType().ToString() = Datatypes.sdo_geometry Then
Me.value_local = New SdoGeometry
Me.value_local = DirectCast(value, SdoGeometry)
Else
Me.value_local = New Data(value)
End If
End Sub
End Class
Any help of thought greatly appreciated...