Had er galt med denne if...then...else

Ups jeg mente, jeg har også prøvet

if TxtProduktlinieResultat.text = "cr" then
    else  SP1 = "Gennemgående"
SP1 = TxtULResultat.text*10
TxtSPLae1Resultat.text = SP1
end if

Det er da noget vrøvl du skriver:

if TxtProduktlinieResultat.text = "cr" then

else
  SP1 = "Gennemgående"
  SP1 = TxtULResultat.text*10
  TxtSPLae1Resultat.text = SP1
end if

Mener du ikke:

if TxtProduktlinieResultat.text = "cr" then
  SP1 = "Gennemgående"
else
  SP1 = TxtULResultat.text*10
  TxtSPLae1Resultat.text = SP1
end if

Syntaksen er

If 'betingelse' Then
  'det der sker hvis betingelse er opfyldt'
Else
  'det der sker hvis betingelse IKKE er opfyldt'
End If

Skriv det ordenligt op som vist ovenfor - så du selv kan se hvad du laver

Kan se der er en del ting du skal have styr på.

En textbox indeholder tekst. fx.
  Text1.text = "Banan"
Du kan ikke skrive
  Text1.Text * 10 - det svarer til at skrive Banan*10 - det er svært at regne ud for en PC

Hvis du vil lave det der står i en textbox om til et tal, skal du først bruge Val()

Text1.Text="10"
Val(Text1.Text) * 2 (lig 20)

:o)

Jeg har bytte rundt på det så mange gange for at få det til at virke. Jeg prøver lige en sidste gang.
Kan jeg oppe i starten af sub - under dim skrive
Val(Text1.Text)=X

og så i hver af mine if længere nede skrive X*10?

Nu har jeg skrevet :

Sub BtnSPLaengdeHent_Click(sender As Object, e As EventArgs)
Dim SP1, SP2, SP3, SP4, SP5
    if TxtProduktlinieResultat.text = "cr" then
        SP1 = val(TxtULResultat.text)*10
    else  SP1 = "Gennemgående"
        TxtSPLae1Resultat.text = SP1
    end if
   
    if TxtProduktlinieResultat.text = "cr, of" then
        SP2 = val(TxtULResultat.text)*15
    else  SP2 = val(TxtULResultat.text)*20
        TxtSPLae2Resultat.text = SP2
    end if
   
    if TxtProduktlinieResultat.text = "pf, rc" then
        SP3 = val(TxtULResultat.text)*25
    else
        if TxtProduktlinieResultat.text = "cr" then
            SP3 = val(TxtULResultat.text)*15
        else
            if TxtProduktlinieResultat.text = "of" then
            SP3 = val(TxtULResultat.text)*20
            end if
        End if
        TxtSPLae3Resultat.text = SP3
    end if
   
    if TxtProduktlinieResultat.text = "pf, rc" then
        SP4 = val(TxtULResultat.text)*30
    else
        if TxtProduktlinieResultat.text = "cr" then
            SP4 = val(TxtULResultat.text)*15
        else
            if TxtProduktlinieResultat.text = "of" then
                SP3 = val(TxtULResultat.text)*20
            end if
        End if
        TxtSPLae4Resultat.text = SP4
    End if
   
end Sub

Men  den vil ikke vise SP3 og SP4

+ SP1 bliver ved med at være "gennemgående" lige gyldig hvad der står i TxtProduktlinie.text

Og dette virker heller ikke

    Sub BtnSPLaengdeHent_Click(sender As Object, e As EventArgs)
    Dim SP1, SP2, SP3, SP4, X
    X = val(TxtULResultat.text)
   
        if TxtProduktlinieResultat.text = "cr" then
            SP1 = X*10
            SP2 = X*15
            SP3 = X*15
            SP4 = X*15
        else
            if TxtProduktlinieResultat.text = "pf" then
                SP1 = "Gennemgående"
                SP2 = X*20
                SP3 = X*25
                SP4 = X*30
            else
                if TxtProduktlinieResultat.text = "of" then
                    SP1 = "Gennemgående"
                    SP2 = X*15
                    SP3 = X*20
                    SP4 = X*20
                else
                    if TxtProduktlinieResultat.text = "rc" then
                        SP1 = "Gennemgående"
                        SP2 = X*20
                        SP3 = X*25
                        SP4 = X*30
                    end if
                end if
            end if
        End if
        TxtSPLae1Resultat.text = SP1
        TxtSPLae2Resultat.text = SP2
        TxtSPLae3Resultat.text = SP3
        TxtSPLae4Resultat.text = SP4

    end Sub

Jeg tror ikke du har helt styr på de der if-then-else sætninger - prøv at kik på mit svar af  12:06:19

Du kan med fordel bruge select case, når du tjekker den samme variabel for flere værdier. Copy-paste nedenstående, og se kommentarene:


    Sub BtnSPLaengdeHent_Click(sender As Object, e As EventArgs)

    Dim SP1 As String  'Når du kender variabeltypen. så brug den rigtige type!
    Dim SP2 As String
    Dim SP3 As String
    Dim SP4 As String
    Dim X 'as ... Long = heltal, double = decimaltal. Vælg det der passer

    X = Val(TxtULResultat.Text)
    MsgBox "kontrol. X indeholder værdien : " & X
    MsgBox "kontrol. X indeholder værdien : " & TxtProduktlinieResultat.Text

    Select Case TxtProduktlinieResultat.Text
    Case "cr"
      SP1 = CStr(X * 10) 'Cstr konverterer en værdi om til en streng
      SP2 = CStr(X * 15)
      SP3 = CStr(X * 15)
      SP4 = CStr(X * 15)
    Case "pf" Or "rc" 'Der sker det samme for pf som for rc
      SP1 = "Gennemgående"
      SP2 = CStr(X * 20)
      SP3 = CStr(X * 25)
      SP4 = CStr(X * 30)
    Case "of"
      SP1 = "Gennemgående"
      SP2 = CStr(X * 15)
      SP3 = CStr(X * 20)
      SP4 = CStr(X * 20)
    Case Else
      MsgBox "textboxen indeholder ikke 'pf','rc' eller 'cr'"
    End Select

    TxtSPLae1Resultat.Text = SP1
    TxtSPLae2Resultat.Text = SP2
    TxtSPLae3Resultat.Text = SP3
    TxtSPLae4Resultat.Text = SP4

  End Sub


Ovenstående er principielt ikke ændret i forhold til det du selv laver - det er bare en anden måde at gøre det på.

Mulige fejlkilder:

1) er du SIKKER på at TxtProduktlinieResultat er skrevet 100% rigtigt - ingen stavefejl osv.?

2) er du SIKKER på at TxtProduktlinieResultat.Text indeholder de værdier du tror

Prøv at kør ovenstående - vend tilbage, hvis det ikke virker

Ret fra
  MsgBox "kontrol. X indeholder værdien : " & TxtProduktlinieResultat.Text
til
  MsgBox "kontrol. TxtProduktlinieResultat.Text indeholder værdien : " & TxtProduktlinieResultat.Text

Ja jeg er sikker på at det der står i TxtProd... er rigtigt
det virker

Tak for hjælpen
Jeg troede jeg havde ok styr på VB og ASP, men ikke så meget som jer andre kan jeg se.

De fejl/uregelmæssigheder der var:

Erklær altid variabler som den rigtige type, hvis du har mulighed for det - skriver du ikek typen, bliver de automatisk erklæret som en "Variant".

Pas på med at blande strings og tal. Skriver du tallet 10 i en textbox, er det noget tekst der består af et et-tal og et nul - det er IKKE tallet 10. Derfor brugte jeg CStr()

Dine if-then-else struktur havde en del fejl. Se 09/11-2005 12:06:19

Dit program vil også give fejl, hvis du skriver "OF" i stedet for "of". Du kan bruge LCase(), så du slipper for denne fejl. hvis du vil. Altså skrive
    Select Case LCase(TxtProduktlinieResultat.Text)

Tak for points

Hejsa

HAr lige et ekstar spsm.
Hvis resultatet ikke er et helt talt, hvordan får jeg den så til at sætte punktum istedet for komma??

Min sql kan nemlig ikke helt hitte ud af det.

Prøv at start et nyt spørgsmål. Og forklar præcis díne forudsætninger, og hvad du vil.