Om jag klickar i listviewen som jag har laddat med en array
hur får jag då fram arrayens index?
Som det är nu får man ju bara listviewens listitem index

ex.
MinArray(1).Namn
MinArray(3).Namn
MinArray(6).Namn
MinArray(8).Namn
MinArray(13).Namn
MinArray(15).Namn

Klickar man på MinArray(6).Namn så får man index(3) Jag vill ha ett index(6)

Tacksam för förslag

/Per

Ursäkta mig ..... Fel av mig du har ju allt

index value
0 "3"
1 "6"
2 "656"
... ....

Index är inget värde bara ett index (ordningstal)

/Jocke

Blir konfunderad när jag ser ditt val av beteckning MinArray(1).Namn

Vad är detta för variabel/objekt/Typ ?

Oj då snabbt och fel som man brukar säga :-)
såg att jag skrev att man får ett index 3 2 ska det ju vara.
Sen får jag nog förklara lite mera.
Säg att jag gjort en egen data typ som jag kallar för MinArray().Namn, MinArray().Projekt, MinArray().Land o.s.v

MinArray().Namn innehåller namnet på den som jag vill ha mera information om
Om jag sen klickar i listviewen på Kalle så vill jag få Kalles plats i MinArray().Namn

Hoppas ni fårstår lite bättre nu

/Per

Oki då klarnade det lite det är alltså en egendefinierad DataTyp som heter Namn Land osv.

Jag vill se hur du deklarerat DataTypen.Dom bör vara lika långa.Sen går Vi in på SubItem i Rapportläge.

Ok så här har jag gjort

i en modul
Public ProjektArray(1 To 1000) As ProjektData

Public Type ProjektData 'En egen Datatyp
ProjektNamn As String
AkNummer As String
Land As String
Startar As String
Timmar As String
Typ As String
Kalle As String 'Listan fortsätter tar inte med alla

Public strProjektNamn As String
Public strAkNummer As String
Public strLand As String
Public strStartar As String
Public strTimmar As String
Public strTyp As String
Public strKalle As String
----------------------------------------------------------------------------------
'Läser in från en textfil
intFF = FreeFile
varSökväg = App.Path & "\Data\ProjektData.dat"
If Len(Dir(varSökväg)) <> 0 Then
Open varSökväg For Input As #intFF
ProRäkn = 0
Do Until EOF(intFF)
ProRäkn = ProRäkn + 1
Input #intFF, strProjektNamn, strAkNummer, strTyp, strLand,strKalle

'Lägger in i array
With ProjektArray(ProRäkn)
.ProjektNamn = strProjektNamn
.AkNummer = strAkNummer
.Typ = strTyp
.Land = strLand
.Kalle = strKalle
End With
Loop
Close #intFF
End If

For i = 1 To ProRäkn 'Lägger till Kalles projekt 'Och in i listviwen
If ProjektArray(i).Kalle = "#TRUE#" Or ProjektArray(i).Kalle = "True" Then
lstvSäljare.ListItems.Add ii, , ProjektArray(i).ProjektNamn
lstvSäljare.ListItems(ii).ListSubItems.Add 1, , ProjektArray(i).AkNummer
lstvSäljare.ListItems(ii).ListSubItems.Add 2, , ProjektArray(i).Typ
ii = ii + 1
End If
Next i
End If

Nu har jag fått in alla "Kalles" projekt i listvien, sen om man klickar på ett av projekten
så vill jag att man ska kunna gå vidare med att hämta upp mera info som jag har
lagrat i textfilen men inte vill ha med i en listview men då behöver jag
ProjektArray(i).ProjektNamn index som det var när jag laddade in det.
Det indexet som man kan få från listviewen kommer inte ju att stämma.

Jag håller på och lär mej så jag kanske är helt ute och reser!!

/Per

När jag laddar en listview i reportläge från en
array brukar jag bifoga indexnummer från
ursprungsarrayen med varje post.
Indexnumret lägger jag under "Key". Det syns
inte på skärmen men går att referera till i klick-
händelsen. Sen kan man köra sortering på
listview'en och det hittar ändå "hem" när
man klickar. Hoppas att jag fattat dit problem
rätt.

Jodå du har förstått det alldeles rätt, det är jag som inte fattar.
Jag har själv försökt på olika sätt att skicka med i "key" men får bara felmeddelande
hela tiden (invalid key).
Du skulle inte kunna förklara med mitt lilla exempel ovan så lovar jag att
solen kommer till helgen :-)

/Per

Jag åkte på samma felmeddelande tillen böjan.
Fick förklarat här på forumet att Key måste vara
unikt i projektet. Det löste jag med att skicka
med ett "ovanligt" tecken, t.ex. "£" & index.
Ex. £6. När det ska hämtas får man bryta loss "6"
med stränghantering. Funkar bra, men kanske finns
mindre omständiga vägar?

Solen är på väg :-)
Gjorde ett snabbt test och det funkade bra.
Nu kan jag fila vidare på mitt lilla program.
Tack så mycket

/Per