Välja rätt fraktalternativ i Loop

Det var länge sen jag hjälpte någon men jag kan väl testa.

Hur ser din loop ut (exakt)
Hur ser "Om artiklarna i kundvagnen endast är märkta med Posten" ut?
Hur ser variabel som ska tilldelas ut?

Exempel:

Count = 1
For each Item In Kundvagn

  If Kundvagn.Item(Count)("frakttyp") = "Posten" Then
    fraktalternativet = "Posten"
  ElseIf Kundvagn.Item(Count)("frakttyp") = "Bussgods" Then
    fraktalternativet = "Bussgods"
  ElseIf Kundvagn.Item(Count)("frakttyp") = "Både" Then
    fraktalternativet = "Bussgods"
  End If

  Count = Count + 1

Next

Detta är säkert helt fel, men det är på grund av att du inte har gett tillräckligt information.

Kanske genom att i loopen lägga in fraktalternativen i en array och sedan efter loopen kolla om arrayen innehåller Posten resp. Bussgods?

= helt ok tycker jag,

Eller bara ha två flaggor,
BussGodsFinns = false
PostenFinns = false

Loopa igenom och sätt flaggorna beroende på artikelns frakttyp

Efter loopen kollar du om BussGodsFinns = True And PostenFinns = True -> Bussgods
else Om BussGodsFinns = true -> Bussgods
else Om PostenFinns = true -> Posten

Är inte så där jättehaj på arrayer, litet exempel kanske?

Visa kod bigsky det blir mycket enklare att hjälpa då. Kolla ovanför vad som behövs.

fraktalternativet = Array("Posten","Bussgods","både")

If Kundvagn = fraktalternativet(1) Then
  BussGodsFinns = false
  PostenFinns = true
ElseIf Kundvagn = fraktalternativet(2) Then
  BussGodsFinns = true
  PostenFinns = false
ElseIf Kundvagn = fraktalternativet(3) Then
  BussGodsFinns = true
  PostenFinns = false
End If

Kör mer Stefans förslag, det verkade bra. Tack båda två för snabba svar.

bigsky skrev:

Kör mer Stefans förslag, det verkade bra.

Snakes har väl mer eller mindre implementerat det stefan skrev? Det enda som saknas är loopen vad jag kan se..

Ja, det har han ju. Tänkte inte på vem jag skulle tacka mest, men rätt ska ju vara rätt...

okej, blev lite förvirrad ;)