Class Properties - Set-Funktion verändert die falsche Property

  • VB.NET
  • .NET (FX) 4.0

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von BeSt.

    Class Properties - Set-Funktion verändert die falsche Property

    Hallo.

    Ich habe in VB.NET eine Klasse programmiert.
    Diese sieht vereinfacht so aus:

    Quellcode

    1. Public Class cMandant
    3. Public Property nr as Long
    4. Private _dat as Date
    6. Public Property dat as Long
    7. Set(ByVal value as Long)
    8. _dat = getDateFromDays(value)
    9. End Set
    10. Get
    11. Return _dat.ToString("dd.MM.yyyy")
    12. End Get
    13. End Property
    15. Public Sub New()
    16. nr = 100
    17. dat = 39796
    18. End Sub
    20. End Class


    Sinn des ganzen ist folgendes: In einer alten Anwendung auf IBM-Großrechnerbasis wurden Daten im Format "Tage seit 01.01.1900" gespeichert. Ich will die Inhalte eines Mandanten aus dieser Anwendung lesen und in der erstellten Klasse speichern. Die Funktion getDateFromDays rechnet die Tages-Datum-Werte in das entsprechende Date-Objekt um.

    Soweit so gut. In dem Feld _dat steht nach der Initialisierung auch das richtige Datum 15.12.2008 drin.
    Aber in dem Feld dat steht direkt nach der Zeile _dat = getDateFromDays(value) im Setter nicht mehr der Wert 39796, sondern der Wert 15122008 - also das berechnete Datum ohne Punkte.

    Dadurch funktioniert natürlich der Getter nicht mehr richtig und das ganze Ding ist nicht mehr nutzbar.

    Kann mir jemand helfen? Warum wird der Wert von dat verändert, wenn ich _dat einen Wert zuweise?
    Hab ich etwas übersehen?

    Vielen Dank für jede Hilfe.

    BeSt

    Die Farbe "Rot" ist der Moderation vorbehalten. => Farbe angepasst.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Trade“ ()

    Okay. Ich dachte, dass der Setter von dat nur das Private Property ​_dat verändert.

    Kann ich das irgenwie hinbekommen? Denn ich brauche in der Property ​dat weiterhin den Tages-Wert und der Property _dat den Date-Wert.

    Danke für die Hilfe...

    Ich versuche zu erklären, was ich vorhatte:

    Ich lese die Werte von cMandant​ aus einer MySQL-Datenbank. Dabei fülle ich alle Properties von cMandant in einer Schleife:

    Quellcode

    1. ​Public Sub New(ByVal dr As MySqlDataReader)
    3. Dim type As Type = Me.[GetType]()
    4. Dim flags As BindingFlags = BindingFlags.[Public] Or BindingFlags.Instance
    5. Dim properties As PropertyInfo() = type.GetProperties(flags)
    7. For Each [property] As PropertyInfo In properties
    8. [property].SetValue(Me, dr([property].Name), Nothing)
    9. Next
    11. End Sub


    Wenn dann mal der Inhalt der DB in der Klassen-Instanz cMandant ist, dann fülle ich die Textboxen einer Form mit den Inhalten der Klassen-Instanz. Die Textboxen der Form haben als Namen die mySQL-Feldnamen, die ja auch die Proptery-Names sind.

    Das Füllen der Textboxen sieht dann so aus:

    Quellcode

    1. ​Public Sub fillForm(ByVal mand As cMandant)
    3. Dim type As Type = mand.[GetType]()
    4. Dim myPropInfo As PropertyInfo
    6. Dim txts As Object = GetAll(Me, GetType(TextBox))
    8. For Each txt As TextBox In txts
    9. myPropInfo = type.GetProperty(txt.Name)
    10. txt.Text = myPropInfo.GetValue(mand, Nothing)
    11. Next
    13. End Sub


    Jetzt komme ich auf das Problem: Wenn die New-Funktion das Feld ​dat aus der DB liest, dann sieht sie, dass das ein Long ist. Deswegen ist der Type der Property ​dat ebenfalls ein Long. In die Textbox auf der Form will ich aber nicht den Tages-Wert schreiben, sondern ein lesbares Datum. Deswegen habe ich das Private Property ​_dat eingefügt und hoffte, dass ich mit dem Setter von ​dat (da die Schleife ja diesen Feldnanmen verwendet) lediglich dieses Private Property ​_dat setzen kann und mit dem Getter von ​dat dann eben den String zurückgegeben bekomme.

    Ich hoffe ich habe es verständlich ausgedrückt. Ich habe das Problem jetzt erkannt, weiß aber noch keine Lösung dafür.

    Gibt es dafür einen Tip?

    Danke.

    LG
    BeSt

Facebook
Telefonspende