Textbox formatieren

[realYeti]

Hy Leute, habe das Problem, daß ich aus ner Datenbank 4 Felder mit "Money" bekomme, und diese in den gebundenen Textboxen aber nur mit 2 Kommastellen anstatt der 4 anzeigen lassen will.

Hab schon folgendes Beispiel gefunden, aber ist nicht sonderlich zufriedenstellend - vielleicht weiß einer von Euch ne "eleganntere Lösung" oder nen anderen Weg.


So ist die Ausgangslage:

tbxRechbrutto.DataBindings.Clear()
tbxRechbrutto.DataBindings.Add("Text", BindingSourceListe, "rebrutto")

SO war des gefundene Beispiel:

'Dim bi As Binding

'bi = tbxRechdatum.DataBindings.Add("Text", BindingSourceListe, "redatum")
'AddHandler bi.Format, AddressOf RChange
.
.
.
'Sub RChange(ByVal sender As Object, ByVal e As ConvertEventArgs)

'    e.Value = CType(e.Value, Date).ToShortDateString

'End Sub

Gruß und THX

Yeti

 

[Nico Graichen]

Hi

Ich hab dein Problem noch nicht so ganz verstanden! Vorallem nicht den Zusammenhang zwischen "Money" und Date (Ok, Zeit ist Geld, aber egal )

Suchst du vielleicht sowas wie MaskedTextBox

 

[realYeti]

Nee die Mask kenn ich, ist aber für meine Zwecke völlig unbrauchbar.


Das Beispiel, daß Ich gefunden habe bezieht sich nur auf ein Date Feld - meine Problemstellung ist (Money Feld 4 Kommastellen --> textbox(gebunden) Anzeige mit 2 Kommastellen)

Bsp.: €12,0000 (Datenbank)
€12,00 (SO soll die Anzeige in der Textbox aussehen)

VIelleicht hat einer ne Idee....

THX

Yeti