Problem bei der Zuordnung

[bikerboy]

Sehr geehrte Gemeinde, ich bin mal wieder der Verzweifelung nahe und wende mich aus diesen Grund , mit folgedem Problem an euch:

Code

		If score <= Cdbl(docProfile.GetItemValue("uncritical")(0)) Then		
			Call docCol.ReplaceItemValue("status",2)									
			Call docCol.Save(True, True)
		Elseif  Cdbl(docProfile.GetItemValue("uncritical")(0)) < score <=  Cdbl(docProfile.GetItemValue("verycritical")(0)) Then
			Call docCol.ReplaceItemValue("score",score)		
			Call docCol.ReplaceItemValue("status",3)
			Call doccol.ReplaceItemValue("teststring",teststring)			
			Call docCol.Save(True, True)
		Elseif Cdbl(docProfile.GetItemValue("verycritical")(0)) < score  Then
			Call docCol.ReplaceItemValue("score",score)		
			Call docCol.ReplaceItemValue("status",4)
			Call doccol.ReplaceItemValue("teststring",teststring)	
			Call docCol.Save(True,True)
		End If	

In dem Feld "verycritical" aus dem Profil-Dokument ist der Wert 20 hinterlegt, der Scorewert liegt bei 50, also deutlich über dem wert von "verycritical" und dennoch vergibt der Code den status 3 und nicht wie gewollt 4. Wieso ?

[m3]

Client schon mal neu gestartet?

[tks]

Ich würde die Zeile
... < score <= ... abändern

... < score And score <= ...

[diali]

dann scheint die Abfrage

Code

Elseif  Cdbl(docProfile.GetItemValue("uncritical")(0)) < score <=  Cdbl(docProfile.GetItemValue("verycritical")(0)) Then

schon einen True zurückzugeben.

Bist Du Dir sicher, dass der Code so funktioniert?, muss es nicht so lauten

Code

Elseif  Cdbl(docProfile.GetItemValue("uncritical")(0)) < score And score <=  Cdbl(docProfile.GetItemValue("verycritical")(0)) Then

[koehlerbv]

Klar:
Cdbl(docProfile.GetItemValue("uncritical")(0)) < score ist wahr, also ist dieswer Term -1.

und dann ist
(-1) <=  Cdbl(docProfile.GetItemValue("verycritical")(0)) auch wahr 

Bernhard

[bikerboy]

ja danke mit dem "And"  hat es dann geklappt