Søg
Avatar billede kledal Nybegynder
26. februar 2004 - 17:11 Der er 10 kommentarer og
1 løsning

når man har valgt noget via en dropdown, skal jeg i en anden

igen igen, oprettet på nyt!

kledal
Avatar billede nute Nybegynder
26. februar 2004 - 17:38 #1
dette spm er vel i forlængelse af dette spm, regner jeg med ?

http://www.eksperten.dk/spm/470244

kan du ikke bare gøre sådan ?
Private Sub List1_Click()
    For i = (List2.ListCount - 1) To 0 Step -1
        List2.RemoveItem (i)
    Next
    For i = 0 To List1.ListCount - 1
        If ((i) <> List1.ListIndex) Then
            List2.AddItem (List1.List(i))
        End If
    Next
End Sub

/nute
Avatar billede powell Nybegynder
26. februar 2004 - 21:58 #2
<html>
<head>
    <title>Untitled</title>
<script language="VBscript">
On Error Resume Next

Dim strIndhold
strIndhold = "Felt Test 1,Felt Test 2,Felt Test 3,Felt Test 4,Felt Test 5"

Function Select2Fyld(strSkalIkkeMed)
On Error Resume Next

Dim arrIndhold
Dim strLine
Dim i

arrIndhold = Split(strIndhold,",")

i = 0
Err = 0
strLine = ""

Do Until Err <> 0
    If Not strSkalIkkeMed = arrIndhold(i) Then strLine = strLine & arrIndhold(i) & "<br>"
    i = i + 1
Loop

Document.All("Select2").InnerHTML = strLine
End Function


Function GetData()
On Error Resume Next

Dim arrIndhold
Dim strLine
Dim i

arrIndhold = Split(strIndhold,",")

i = 0
Err = 0
strLine = ""

Do Until Err <> 0
    strLine = strLine & "<a href=""#"" Onclick=""java script:Select2Fyld('" & arrIndhold(i) & "');"">" & arrIndhold(i) & "</a><br>"
    i = i + 1
Loop

Document.All("Select1").InnerHTML = strLine

End Function

</script>

</head>

<body onload="java script:GetData();">

<div id="select1" style="border-style: solid; border-color: Black;"><br><br></div>
<br><br>
<div id="select2" style="border-style: solid; border-color: Black;"><br><br></div>
</body>
</html>
Avatar billede nute Nybegynder
26. februar 2004 - 22:02 #3
DOH !! Vbscript ... var sikker på at det var VB :-|
Avatar billede kledal Nybegynder
27. februar 2004 - 13:15 #4
det hjalp ikke, da det ikke er VBscript
Avatar billede powell Nybegynder
27. februar 2004 - 13:29 #5
Ikke forstået?

Det du søger skal altså ikke være et VBscript men måske ASP? Har du allerede lavet noget i forvejen?
Avatar billede nute Nybegynder
27. februar 2004 - 13:35 #6
ASP = VBScript/JScript
VBScript/JScript = scriptsprog der kan bruges både serverside og clientside
Avatar billede kledal Nybegynder
27. februar 2004 - 13:35 #7
har lavet noget, men det funker ikke, hvis det kan laves i asp ville det være dejligt, kan bare ikke lige se hvordan??
Avatar billede nute Nybegynder
27. februar 2004 - 13:42 #8
kledal >> skal det absolut være i VBScript ? hvis ja ... hvorfor ? og hvis ja ... skal det være clientside eller serverside ?

/nute
Avatar billede powell Nybegynder
27. februar 2004 - 13:45 #9
åhhh! så send dit script til poul.jorgensen at viterra-es.dk, så kikker jeg på det.

Du oprettede blot spørgsmålet under VBscript og gik derfor ud fra at det var det du ønskede, det kan laves meget nemmere ved asp.
Avatar billede nute Nybegynder
27. februar 2004 - 14:03 #10
men hvorfor lave det serverside, når du kan lave det client-side med javascript, som er *meget* nemmere. du har jo allerede værdierne ude på clienten, så hvorfor poste et formular bare for at ændre værdier ??

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">

<html>
<head>
    <title>Untitled</title>
    <script language="JavaScript" type="text/javascript">
    <!--
    function copyRows( objSelect )
    {
        var objTargetSelect = document.getElementById( "sel2" );
        objTargetSelect.options.length = 0;
        var objOption = null;
        for( i = 0; i < objSelect.options.length; i++ )
        {
            if( i != objSelect.selectedIndex )
            {
                objOption = new Option( objSelect.options(i).value, objSelect.options(i).text );
                objTargetSelect.options.add( objOption );
            }
        }
    }
    //-->
    </script>
</head>
<body>
<form id="frm">
<select id="sel1" size="5" onchange="copyRows( this );">
    <option value="1">1</option>
    <option value="2">2</option>
    <option value="3">3</option>
    <option value="4">4</option>
    <option value="5">5</option>
</select>
<select id="sel2" size="5"></select>
</form>
</body>
</html>

/nute
Avatar billede nute Nybegynder
27. februar 2004 - 14:04 #11
undskyld ... denne linje:

objOption = new Option( objSelect.options(i).value, objSelect.options(i).text );

skal være:

objOption = new Option( objSelect.options(i).text, objSelect.options(i).value );
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra VBscript kategorien

Titel Indlæg Oprettet Seneste aktivitet
Ændre navn på folder Af bsn i VBscript 12 07/07/202312:45 09/07/202307:04
Outlook makro Af Webnoob i VBscript 6 09/02/202313:32 16/02/202315:51
Sti / Filname med mellemrum ??? Af ksor i VBscript 10 07/10/202200:43 07/10/202215:40
GetLastRow - Google spreadsheet Af rickiegrayholm i VBscript 2 22/04/202213:23 22/04/202214:55
Batch fil Af BDV i VBscript 1 12/01/202210:00 12/01/202210:05
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 10:29 Negativ billeder på samsung Af ALICE i Småopgaver
15/0115:45 HJÆLP - Lopslag, Indeks? Hvad gør jeg! Af Eva i Excel
14/0119:38 Webmail yousee Af nu_igen i E-mail programmer
14/0113:00 Blå pile på foto? Af hkprofil i Office & Kontorpakker
13/0123:48 Tekst til Dato Af nyhavn18 i Excel
White papers
Flere white papers »