Doublewert in String (Volumenberechnung)

Rolf Mettler

Hallo Philipp

Wie am Morgen besprochen habe ich versucht die Volumenberechnung im LD zu automatisieren.
Wert 2x10x5 soll automatisch in 100 umgerechnet werden:
Dim vals as double() = dataBand1("PkgType").Split(x)
Dim res As Double=1
For Each d As Double in vals
res = res + res * d
Next
textBox4.Value=res

Leider gibt er mir jetzt eine Fehlermeldung:
Generate user script failed in textbox4
unable to cast object of type 'system.string' to type 'system.double'

Hast du mir noch einen Tipp - DANKE.

Gruss Rolf

Philipp Knecht

Hi Rolf

Versuchs mal mit:


[quote]Dim vals as string() = dataBand1("PkgType").Split(x)
Dim res As Double=1
For Each d As string in vals
res = res + res * cdbl(d)
Next
textBox4.Value=res

hth

Rolf Mettler

Technisch geht es jetzt, ... leider rechnet er falsch: 23x20x14 gibt 7560 anstelle von 6440? Was rechnet der?

Gruss Rolf

Philipp Knecht

Hallo Rolf

Ja kleiner Schönheitsfehler. Res ist beim erszten DL 2:

[quote]Dim vals as string() = dataBand1("PkgType").Split(x)
Dim res As Double = Cdbl(vals(0))
For i = 1 to vals.GetUpperBound(0)
res = res + cdbl(vals(i))
Next
textBox4.Value=res
hth