|
| |
VB.NET - Ein- und Umsteiger| Problem mit CDec | |  | | Autor: Eli20 | | Datum: 30.03.13 12:05 |
| Hallo ich hab ein kleines Problem und mich schon stundenlang durchs inet geglickt aber keinen passenden Lösungsansatz gefunden... ich hoffe ihr könnt mir helfen 
Muss dazu sagen, dass ich noch ein Anfänger bin ;)
Mein Problem:
Ich habe eine Datenbank (Access) an mein Projekt angehängt. Aus dieser Datenbank werden Zahlen in mein Formular geladen (in Labels). Funktioniert auch alles wunderbar soweit. Nur jetzt möchte ich diese Zahlen zusammenrechnen und bekomme immer eine Fehlermeldung, wenn ich das Programm ablaufen lasse.
Fehlermeldung:
InvalidCastException wurde nicht vom Benutzercode behandelt.
Ungültige Konvertierung von der Zeichenfolge in Typ Decimal.
Diese Fehlermeldung taucht immer bei der Codezeile "Bonuskarten = CDec(lblBonuskarten.Text)" auf.
Hier der Codetext:
Dim Bonuskarten As Decimal
Dim Buchungsspecial As Decimal
Dim Hundekindergarten As Decimal
Dim Seniorenprogramm As Decimal
Dim Tagesgast As Decimal
Dim Tiertransport As Decimal
Dim UrlaubmitHund As Decimal
Dim Leistungen As Decimal
Bonuskarten = CDec(lblBonuskarten.Text)
Buchungsspecial = CDec(lblBuchungsspecial.Text)
Hundekindergarten = CDec(lblHundekindergarten.Text)
Seniorenprogramm = CDec(lblSeniorenprogramm.Text)
Tagesgast = CDec(lblTagesgast.Text)
Tiertransport = CDec(lblTiertransport.Text)
UrlaubmitHund = CDec(lblUrlaubmitHund.Text)
Leistungen = Bonuskarten + Buchungsspecial + Hundekindergarten + _
Seniorenprogramm + Tagesgast + Tiertransport + UrlaubmitHund
lblBonuskarten.Text = Format(Bonuskarten, "€ #,##0.00")
lblBuchungsspecial.Text = Format(Buchungsspecial, "€ #,##0.00")
lblHundekindergarten.Text = Format(Hundekindergarten, "€ #,##0.00")
lblSeniorenprogramm.Text = Format(Seniorenprogramm, "€ #,##0.00")
lblTagesgast.Text = Format(Tagesgast, "€ #,##0.00")
lblTiertransport.Text = Format(Tiertransport, "€ #,##0.00")
lblUrlaubmitHund.Text = Format(UrlaubmitHund, "€ #,##0.00")
lblLeistungen.Text = Format(Leistungen, "€ #,##0.00")Wie schon gesagt in den Labels steht immer eine Zahl, deswegen verstehe ich nicht warum er es nicht macht.
Ich habe auch schon mit Single und Double versucht, bekomme da allerdings die selbe Fehlermeldung.
Mit der Val-Funktion würde es funktionieren, allerdings haben manche Zahlen Kommastellen.
Ich hoffe ihr könnt mir helfen und bedanke mich schon mal im Vorraus
LG Eli | |
 | Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
 Einloggen | Neu registrieren |
 |
|
TOP! Unser Nr. 1 
Neu! sevDataGrid 3.0
Mehrspaltige Listen, mit oder ohne DB-Anbindung. Autom. Sortierung, Editieren von Spalteninhalten oder das interaktive Hinzufügen von Datenzeilen sind ebenso möglich wie das Erstellen eines Web-Reports. Weitere InfosTipp des Monats Access-Tools Vol.1 
Über 400 MByte Inhalt
Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB
Nur 24,95 EURWeitere Infos
|
| |
|
Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|
November 2025
Sie sind aktuell nicht angemeldet.
