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
    6. if ActivePage.ASFields.Item("Nachname").Value = "" then
    7. ActivePage.ASFields.Item("Nachname").Value = "peter"'GetEnvironment(3)
    8. end if
    11. count = 0
    12. result = ""
    13. while( result <> -1) "ZEILE0"+count
    14. a=ActivePage.ASFields.Item("Vorname").Value & chr(17) & ActivePage.ASFields.Item("Nachname").Value
    15. oxhelp.GetProfString "stamm1list1","ZEILE0",-1, a,osfile
    16. count = count+1
    17. wend
    20. ResultCode=1
    21. WriteToFile()


    *Code-Tag eingefügt*
    Bilder

    • Form 1.PNG

      7,4 kB, 612×392, 122 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