9 svar · 266 visningar · startad av Jesper T
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
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