VBScript Anaben in Tabelle durch Textfeld

  • VBScript

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von Marcus Gräfe.

    VBScript Anaben in Tabelle durch Textfeld

    Hallo Leute ich habe folgendes Problem:

    in dem Formular( Bildanhang ) , soll nachdem in textfelder Vorname und Nachname etwas angegeben wurde ,mit Button Erzeuge in Tablle5 eingetragen werden.
    hinzu soll wenn noch mehr Angaben in textfelder Vor und nachname angegeben wird in einer reihenfolge in die Tabelle eingetragen werden.

    der Code hängt irgendwo, habe mit While -wend schleifen ertsmal versucht.

    Dankle für eure Ratschläge



    Visual Basic-Quellcode

    1. if ActivePage.ASFields.Item("Vorname").Value = "" then
    2. ActivePage.ASFields.Item("Vorname").Value = "test"'GetEnvironment(3)
    3. end if
    4. if ActivePage.ASFields.Item("Nachname").Value = "" then
    5. ActivePage.ASFields.Item("Nachname").Value = "peter"'GetEnvironment(3)
    6. end if
    7. count = 0
    8. result = ""
    9. while( result <> -1) "ZEILE0"+count
    10. a=ActivePage.ASFields.Item("Vorname").Value & chr(17) & ActivePage.ASFields.Item("Nachname").Value
    11. oxhelp.GetProfString "stamm1list1","ZEILE0",-1, a,osfile
    12. count = count+1
    13. wend
    14. ResultCode=1
    15. WriteToFile()


    *Code-Tag eingefügt*
    Bilder
    • Form 1.PNG

      7,4 kB, 612×392, 91 mal angesehen

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Marcus Gräfe“ ()

    Du initialisierst result erst mit einem Leerstring, fragst dann aber einen Integerwert ab (-1). Zudem muss irgendwo innerhalb der Schleife der Wert gesetzt werden, sonst ist es eine Endlosschleife.

    result = "" muss auf jeden Fall zu result = 0 werden (zumindest Integerwert, sonst ergibt es keinen Sinn). Das ist aber nicht der Hauptfehler. Wie du in der Schleife zu einem result-Wert kommst, kann ich dir nicht sagen, ich kenne das von dir verwendete (und nicht genannte) System nicht.
    Besucht auch mein anderes Forum:
    Das Amateurfilm-Forum