Lidt hjælp tak :-)

prøv at klave function sådan her:


sub test(name)
  name = Int(name) +1   
end sub

En overskrift så man ved hvad det mere præsist handler om TAK :o)

dim countA
dim countB
countA = 0
countB = 0

sub test(name)
  test(name) +1   
end sub

call test(1)
Call test(2)
call test(3)

//>Rune

Prøv det her:

Dim CountA
Dim CountB

CountA = 0
CountB = 0

Sub test(name)
  If name = "A" Then
    CountA = CountA + 1
  ElseIf Name = "B" Then
    CountB = CountB + 1
  End If
End Sub

Call test("A")
Call test("B")
Call test("A")

du skal ka function med navnet på variablen og ikke abre A og B


countA = 0
countB = 0

call test(countA)
Call test(countA)
call test(countB)

Sorry - den her virker bedre og mere "korrekt":

Sub test(name)
  name = name + 1
End Sub

Call test(CountA)
Call test(CountB)

Jeg er så småt ved at lære om sub's men hvad betyder call?

Call bruges såmænd til at kalde en sub eller function. Kan egentligt også gøres ved blot at skrive test(CountA) f.eks....

papman> Det kalder din Sub / Funktion

//>Rune

sorry med det med overskrift :-)

jeg har lavet coden lidt simpler, for det er nemt at overskue problemet..

men i det code jeg har, er der måske over 200 var.. hvor der skal laves en masse udregninger på..

mine call med parameter kommer fra et sql udtræk.. så jeg er ked af det men igen af de svar kan bruges

Har du et link hvor man kan læse noget mere om det ?

Sådan her:

dim countA
dim countB
countA = 0
countB = 0

call test(countA)
Call test(countA)
call test(countB)

sub test(name)
  name = Int(name) + 1
end sub

Til spotgun ..
kan godt forstå dig :-) men den parameter som jeg føre med over bliver også brugt til noget sql når der laves en beregning og ville jeg helst lave bliver som den er.. hvis man kan ??.. :-)

Altså - du har en tabel i en DB med en masse variabel-navne, som skal tælles op, eller?

Så burde du jo kunne gøre lidt i stil med det her (taget i betragtning at du har et åbent record-set osv):

While Not RS.EOF
  Call test( RS("") )
  RS.MoveNext
Wend

...ved ikke om det virker, men det var da forsøget værd.

Hvis jeg er helt galt på den, så må du forklare dig lidt bedre!

dim countA
dim countB
countA = 0
countB = 0
call test(countA)
Call test(countA)
call test(countB)

Sub test(name)
  name = Int(name) + 1
  Response.Write name
End Sub

det gir 1 2 1 Aaaaahhhh nu er jeg ved at forstå det her call Hvordan call'er man en function ?
Jeg kunne stadig godt tænke mig et link til mere info om dette call
PFT

til eagleeye
se kommentar til spotgun.. jeg vil helst ikke vi ænder parameter og
laver var i funktion lige som i starten..
..count(name) +1
det er denne linie der er vigtig..
måske skal den se sådan ud ..
"count" + name =+
ved godt at =+ kommer fra c++ men det giver måske en bedder forståelse for hvad jeg vil..

til spotgun
det er næsten rigtig.. ud over at når jeg kalder min sub er det med fast def. parameter som kommer et andet sted fra.. vil bare gerne vide om dette kan lade sig gøre og hvordan..
og her vil parameter være (rw,wf... osv..)

sub lot_Nextlot(SoegType, guid)
    local_rw_Array = Split(rw_Array,",")
    local_wf_array = Split(wf_array,",")
    local_pm_array = Split(pm_array,",")
    local_pf_array = Split(pf_array,",")
    local_nfr_array = Split(nfr_array,",")
    local_Line_Array = Split(Line_array,",")

    set srs = Server.CreateObject("ADODB.recordset")       
    sql="select lotid, Nextlotid from tblTrackNext where lotid like '" + SoegType +"/%' and guid = '" + guid +"'"   
    srs.Open sql, conn
   
    while srs.EOF = true then
        For j = 0 To ubound("local_" + "soegtype" + "_array")
          if lotid = "local_" + "soegtype" + "_array"
            rw_array = rw_array + srs.Fields.item("lotid")
          else
            rw_array = rw_array + srs.Fields.item("nextlotid")
    loop   
    srs.close
    set srs = nothing
end sub

Lukker ? da jeg har skrevet coden om.. :-(
men siger da pænt tak for hjælpen :-)