German Hilfe zu Listview

[chefe82]

Hallo zusammen,

ich lade per HttpUltils2 daten und die kommen als JSON vom Server.
Jetzt lade ich nur bestimmte Spalten in die Listview. Wie kann ich den Rest über ListView1_ItemClick in einer Mgbox anzeigen lassen? mit Value bekomme ich ja alles angezeigt. Ich brauche aber nur Spalte x2, x3,x x6, x9 und x10 die anderen werden ja in der Listview angezeigt.

Sub JobDone (Job As HttpJob)
ProgressDialogHide
If Job.Success = True Then
Dim strReturn As String = Job.GetString
Dim parser As JSONParser
parser.Initialize(strReturn)
If Job.JobName = "suche" Then
Dim Members As List
Members = parser.NextArray 'returns a list with maps
For i = 0 To Members.Size - 1

m = Members.Get(i)


ListView1.AddTwoLines(m.Get("x1") & " " & m.Get("x4") & " " & m.Get("x5") & " " & m.Get("x7") , m.Get("x8"))
Next
Else
ToastMessageShow("Error: Invalid Value", True)
End If
Else

ToastMessageShow("Error: " & Job.ErrorMessage, True)
End If
Job.Release
End Sub

Ich hoffe ihr versteht was ich meine und Entschuldige mich für meine schlechte ausdrucks weiße.

Hoffe mir kann da jemand helfen.

 

[DonManfred]

Füge alle daten in eine Map, benutze die map bei lv.addsingleline2(...) als value.
Im itemclick event bekommst du dann diese map mit allen daten

 

[chefe82]

Ich kann dir da leider net folgen. Bin da noch Anfänger
könntest du mir ein Beispiel Posten?

 

[DonManfred]

dim m AS map
M.put("line1", "bla")
'Füge beliebig viele Werte in die map
Lv.addsinleline2("bla", m)

 

[chefe82]

Nach mehrerem Testen habe ich es jetzt hinbekommen

danke für den Denkanstoß

Gruß

 

[DonManfred]

    lv.Clear
    Dim m As Map
    m.Initialize
    m.Put("Line1","Bla bla bla")
    m.Put("Line2","ho ho ho")
    m.Put("AnotherString","Test")
    lv.AddTwoLines2(m.Get("Line1"),m.Get("Line2"),m)



Sub lv_ItemClick (Position As Int, Value As Object)
    Dim m As Map = Value
    Log("Clicked item no "&Position)
    Log("Line1: "&m.Get("Line1"))
    Log("Line2: "&m.Get("Line2"))
  Log("AnotherString: "&m.Get("AnotherString"))

   
End Sub