Plussa på lite...

Jag vill att 70 skall plussas på för varenda rad.
Detta verkar funka, men om det inte finns några poster så läggs ändå 70 på.
Varför?

model=70
if isarray(myArray) then
    for i=0 to ubound(myArray,2)
        num=num+cint(0&myArray(0,i)) + model
    next
end if

äh...

CInt(0&myArray(0,i))

Ska den kanske se ut såhär

CInt("0" & myArray(0, i))

Ok, men till saken ... ;)

Ahhh, shiiiit.
Jag lägger in model direkt i sql-satsen i stället.

Ne he, det funkade inte heller.

Jesper T skrev:

Ok, men till saken ... ;)

Hehe... jag kom av mig lite.

Det kan bero på att du har dimensionerat din array med t.ex. Dim myArray(2,2).
Då kommer UBound(myArray, 2) att ge 2 även om inte "posten" innehåller något.

Jag har bara dimmat den med Dim myArray

Behöver du kanske kolla om det finns något på det indexet?

model=70

If IsArray(myArray) Then
  For i = 0 To UBound(myArray,2)
    If Len(myArray(0, i)) > 0 Then
      num = num + CInt(myArray(0,i)) + model
    End If
  Next
End If

Men alla tomma poster skall också plussas på med "model" (även de tomma), men är det inga poster, så skall inte "model" plussas på.

Som princip:

If IsArray(myArray) Then
  For i = 0 To UBound(myArray,2)

      num = num + CInt(myArray(0,i)) + model

  Next
else
  num = num
End If