ForAll løkke

ForAll i In Item1.Values
Print "løkke"
ECLASS =a+Doc.AssignmentNumber(0)+a
LPROD =a+Item1(i) + a
LQORD = Cint(Item2(1))
'****************************************
'* SQL for ECL
Query.SQL = "INSERT INTO EDSERVICE.EDECL values (" & ECLASS &", "& LPROD &", "& LQORD &")"
Print "::::::ECL" + Query.SQL
Call Result.Execute
End Forall

HOV ! Din kode...
LPROD =a+Doc.SalaryCode(i) + a
LQORD = Cint(Doc.SalaryQuantity(0))
... er korrekt nok (med mindre det skal være SalaryQuantity(i))

Jeg får en TYPE MISMATCH på linien LPROD!!!

Set Item1 = Doc.GetFirstItem("SalaryCode")
            'Set Item2 = Doc.GetFirstItem("SalaryQuantity")
            Forall i In Item1.Values
                Print "løkke"
                ECLASS =a+Doc.AssignmentNumber(0)+a
                LPROD =a+Doc.SalaryCode(i) + a
                LQORD = Cint(Doc.SalaryQuantity(0))
        '****************************************
        '* SQL for ECL
                Query.SQL = "INSERT INTO EDSERVICE.EDECL values (" & ECLASS &", "& LPROD &", "& LQORD &")"
                Print "::::::ECL" + Query.SQL
                Call Result.Execute
            End Forall

Hvilken data type er a og SalaryCode (de skal være ens for at kunne adderes)

LPROD er initialiseret som STRING, og værdierne i SALARYCODE er STRINGS

a= {'}

hmmm hvis jeg bytter i ud med 0

LPROD =a+Doc.SalaryCode(i) + a
=> LPROD =a+Doc.SalaryCode(0) + a

så virker det!

Problemet er så bare at den ikke får hentet alle værdierne!

Nå ja, klart! i bliver jo værdien i feltet og ikke en integer ;-)
Skift forall løkken ud med :
For i = Lbound( Doc.SalaryCode ) To Ubound( Doc.SalaryCode )

Next

Nu vil jeg så gerne have Item2 med!!! Men hvordan??? Hvis jeg laver en løkke inden i en løkke går det jo galt!

hvorfor skulle deet gå galt?

ForAll1
  Forall2
 
  End Forall
End Forall

Hver gang den kommer ind i Forall1 - løber den jo forall2 igennem for alle værdierne.

Eks: hvis der er 5 værdier i forall1 - gentager den jo denne løkke 5 gange. Hver gang løber den så forall2 igennem - som også indeholder 5 værdier = 25 værdier!!!

Eller er jeg helt galt på den????

Hvad snakker du om? Det er da den samme i værdi du skal bruge, ikk' ?
SalaryCode(1)svarer til SalaryQuantity(1)
....
SalaryCode(34)svarer til SalaryQuantity(34)

Så du skriver bare
For i = Lbound( Doc.SalaryCode ) To Ubound( Doc.SalaryCode )
  bla bla bla
  LPROD =a+Doc.SalaryCode(i) + a
  LQORD = Cint(Doc.SalaryQuantity(1))
Next

eller er jeg helt galt på den ?

nååå, ok. Det er bare fordi jeg fik det til at virke med FORALL i stedet for FOR. Men hvis jeg bruger FOR returnerer den altså en integer????? Det prøver jeg lige!