French Spinner item

T

Tata Mapassa

Member

Licensed User

Longtime User

• Nov 26, 2023

• #1

Bonjour,

J'ai un spinner avec des données d'une table comme cela Cur.GetString("Champ1") & ". " & Cur.GetString("Champ2") & ", " & Cur.GetString("Champ3") & ", " & Cur.GetString("Champ4") sur une ligne et je souhaiterai que l'action Spinner1_ItemClick affiche uniquement le champ4.
Merci

 

klaus

Expert

Licensed User

Longtime User

• Nov 26, 2023

• #2

Les données dans une ligne du Spinner ont quelle forme ?
Y a-t-il un caractère de séparation ?
Si oui, tu peux utiliser Regex.Split pour séparer la ligne en un tableau de valeurs et afficher seulement la 4ème.

 

T

Tata Mapassa

Member

Licensed User

Longtime User

• Nov 26, 2023

• #3

Les données sont récupérées d'une table et affichée dans le spinner. Elles sont séparées par ", " à partir du champ2 à 4.

 

T

Tata Mapassa

Member

Licensed User

Longtime User

• Nov 26, 2023

• #4

Ci-dessous comment je récupère les données de la table. Merci

Sub Liste
Dim Cur As Cursor
Spinner1.Clear
Cur = SQL1.ExecQuery("SELECT * FROM Table")
For I = 0 To Cur.RowCount - 1
Cur.Position = I
Dim Listemal As List
Dim cont1 As String
cont1 = Cur.GetString("champ1) & ". " & Cur.GetString("champ2") & ", " & Cur.GetString("champ3") & ", " & Cur.GetString("champ4")
Listemal = Array As String(cont1)
Spinner1.Addall(Listemal)

Next
Cur.Close

End Sub

 

mcqueccu

Well-Known Member

Licensed User

Longtime User

• Nov 26, 2023

• #5

Based on @klaus response

B4X:

Private Sub Spinner1_ItemClick (Position As Int, Value As Object)
    Dim dataSplit() As String = Regex.Split(",",Value)
    'hard coded position
    Log(dataSplit(3))
    
    'or get last itme
    Log(dataSplit(dataSplit.Length-1))
    
End Sub

 

T

Tata Mapassa

Member

Licensed User

Longtime User

• Nov 26, 2023

• #6

the application crashes using the code below. Thank you for your help
Private Sub Spinner1_ItemClick (Position As Int, Value As Object)
Dim dataSplit() As String = Regex.Split(",",Value)
'hard coded position
Log(dataSplit(3))

'or get last item
Log(dataSplit(dataSplit.Length-1))
label1.text = dataSplit(3) or dataSplit(dataSplit.Length-1)
End Sub

 

mcqueccu

Well-Known Member

Licensed User

Longtime User

• Nov 26, 2023

• #7

Error Log?

 

T

Tata Mapassa

Member

Licensed User

Longtime User

• Nov 26, 2023

• #8

Error resolved by rampplacing the "." by "," in the code below:
cont1 = Cur.GetString("field1) & ". " & Cur.GetString("field2") & ", " & Cur.GetString("field3") & ", " & Cur.GetString("field4")
Thank you for your help and availability

 

klaus

Expert

Licensed User

Longtime User

• Nov 26, 2023

• #9

J'étais sur le point de demander si le "." était voulu ou non.
Mais je vois que tu as trouvé le problème.

 

T

Tata Mapassa

Member

Licensed User

Longtime User

• Nov 26, 2023

• #10

C'était une erreur d'inattention de ma part. Merci encore.