Android Question Getting data from [B4X] CLVExpandable

stevel05

Expert

Licensed User

Longtime User

• Oct 18, 2020

• #2

Try either:

B4X:

    Log(expandable.GetValue(Index))
    
    'Or
    
    Dim V As ExpandableItemData = Value
    Log(V.Value)

 

Upvote 0

Sergey_New

Well-Known Member

Licensed User

Longtime User

• Oct 18, 2020

• #3

stevel05, thanks a lot!

 

Upvote 0

Sergey_New

Well-Known Member

Licensed User

Longtime User

• Oct 18, 2020

• #4

I am trying to pass multiple values with:

B4X:

Type PersonData (name As String, sex As String)

Spoiler

B4X:

Sub Activity_Create(FirstTime As Boolean)
    Activity.LoadLayout("1")
    expandable.Initialize(clv1)
    Dim psd As PersonData
    psd.Initialize
    psd.name="name1"
    psd.sex="M"
    Dim p As B4XView
    p=CreateItem(Rnd(0xFF000000, 0xFFFFFFFF), "ItemM", Rnd(100dip, 300dip) + 60dip)
    clv1.Add(p, expandable.CreateValue(p, psd))
    psd.Initialize
    psd.name="name2"
    psd.sex="F"
    p=CreateItem(Rnd(0xFF000000, 0xFFFFFFFF), "ItemF", Rnd(100dip, 300dip) + 60dip)
    clv1.Add(p, expandable.CreateValue(p, psd))
End Sub

I get the same values for two lines:

Spoiler

B4X:

Sub clv1_ItemClick (Index As Int, Value As Object)
    expandable.ToggleItem(Index)
    Dim V As ExpandableItemData = Value
    Dim psd As PersonData=V.Value
    Log(psd.name)
    Log(psd.sex)
End Sub

How to fix?

 

Upvote 0

LucaMs

Expert

Licensed User

Longtime User

• Oct 18, 2020

• #5

You have to declare a new PersonData (line Dim psd As PersonData before psd.Initialize)

 

Upvote 0

klaus

Expert

Licensed User

Longtime User

• Oct 18, 2020

• #6

Try to add Dim p As B4XView for each new item.

 

Upvote 0

LucaMs

Expert

Licensed User

Longtime User

• Oct 18, 2020

• #7

... too!

 

Upvote 0

Sergey_New

Well-Known Member

Licensed User

Longtime User

• Oct 18, 2020

• #8

The LucaMs variant works.
Thanks!

 

Upvote 0

Sergey_New

Well-Known Member

Licensed User

Longtime User

• Oct 18, 2020

• #9

LucaMs said:

... too!

Click to expand...

This advice does not work

 

Upvote 0

LucaMs

Expert

Licensed User

Longtime User

• Oct 18, 2020

• #10

Sergey_New said:

This advice does not work

Click to expand...

To have 2 items, both are needed, new panel (B4XView) and new PersonData variable.

 

Upvote 0

LucaMs

Expert

Licensed User

Longtime User

• Oct 18, 2020

• #11

B4X:

Sub AddItem(Name As String, Sex As String)
    Dim psd As PersonData
    psd.Initialize
    psd.name=Name
    psd.sex=Sex
    Dim p As B4XView
    p=CreateItem(Rnd(0xFF000000, 0xFFFFFFFF), "ItemM", Rnd(100dip, 300dip) + 60dip)
    clv1.Add(p, expandable.CreateValue(p, psd))
End Sub

 

Upvote 0

Sergey_New

Well-Known Member

Licensed User

Longtime User

• Oct 18, 2020

• #12

Got it, thank you!
But the first tip worked.

 

Upvote 0