webForumDet fria alternativet

Nu casar jag ur

ASP

2 svar · 154 visningar · startad av clarkbones

Medlem sedan feb. 20013 023 inlägg
Frågan#1

Har följande kod ::

legma = 5
lammo = 4
Select Case lammo
Case Is < legma ' Här blir det fel!!!
var1 = 1
Case else
var4="HELP"
End Select

Denna kod funkar i Excel, men inte i min aspsida. Felmeddelande:
Kompileringsfel i Microsoft VBScript, Syntaxfel
ASPError.Source = Case is <legma

Någon som har en aning?

Medlem sedan dec. 200012 464 inlägg
#2

Njae, det funkar inte på det sättet i VB.

Du får skriva det som en if

  if  Is < Legma then
      var1 = 1
  else
      var4 = "Help"
  end if

I en select så är det ju en implicit = jämförelse

Select Case MyVar
Case "red" x = 1
Case "green" x = 2
Case "blue" x = 3
Case Else x = 0
End Select

dvs om myvar = "red" så får x värdet 1
------------------
essentitia preter non sans multiplicandum

[Redigerat av LarsG den 10 apr 2001]

Medlem sedan feb. 20013 023 inlägg
#3

Hmmm, problemet är att mina alternativ är betydligt fler än två, så det blir en herrans massa if, elseif och else.
Jag rensade bort en del för tydlighetens skull.

Du skriver att det inte funkar så i VB, och OK, kanske inte i VBscript, men det funkar i VBA. Jag lovar! Testa att pasta
in följande kod i VB Editorn för excel och kör koden. Det funkar.

Sub fallme()
legma = 5
lammo = 4
Select Case lammo
Case Is < legma
var1 = 1
var2 = 1
MsgBox "Det funkar!"
Case Else
MsgBox "Det kanske inte funkar"
End Select
End Sub

271 ms totalt · 4 externa anrop · v20260731065814-full.a51de22e
133 ms — deklarationer (db)
0 ms — hämta statistik (cache)
133 ms — hämta tråd, inlägg och bilagor (db)
131 ms — ändringar (db)