clv1.Add(addItemtoListview(PossibleFalure, clv1.AsView.Width, 40dip,c), "aa")
c=c+1
Sub pmOne_ValueChanged (Value As Object)
Dim x As B4XPlusMinus=Sender
Dim p As B4XView = clv1.GetPanel(x.Tag)
Dim x2,x3 As B4XPlusMinus
x2 =p.GetView(1).Tag
x3 =p.GetView(2).Tag
Log(x2.SelectedValue)
Log(x3.SelectedValue)
x2.SelectedValue=10-x3.SelectedValue ' do something with the three values
End Sub
Sub addItemtoListview(flist As List, Width As Int, Height As Int,count As Int) As Panel
Dim p As B4XView = xui.CreatePanel("")
p.SetLayoutAnimated(0, 0, 0, Width, Height)
p.LoadLayout("CellItem")
p.Tag=count
pmOne.SetNumericRange(0, 100, 1)
pmOne.Tag=p.Tag
pmTwo.SetNumericRange(0, 100, 1)
pmTwo.Tag=p.Tag
pmThr.SetNumericRange(0, 100, 1)
pmThr.Tag=p.Tag
cbBox.Items.AddAll(flist)
Return p
End Sub