Italian Popolamento customlistview

Fulvio75

Well-Known Member

Licensed User

• Mar 13, 2020

• #1

Ciao a tutti, piccolo quesito a cui non riesco a dare una risposta, popolo una CustomListView con un ciclo, i dati da visualizzare sono contenuti nelle label, tutto ok fino a quando le label sono tutte riempite con i dati, nel momento in cui una label di una riga non contiene dati string="" l'app va in crash e si chiude, se invece eseguo il codice passo passo con F8 non succede nulla e funziona tutto, sembra un problema di tempi di popolamento.
Idee grazie

 

LucaMs

Expert

Licensed User

Longtime User

• Mar 13, 2020

• #2

Chiaramente, detta così non può che sembrare incredibile (se una label non contiene testo, non c'è motivo per il quale l'app debba andare in crash).

Se non ci fai vedere il sorgente, sarà impossibile aiutarti.

Dato ciò che dici riguardo la modalità debug e passo-passo, prova a mettere Sleep(0) ma temo che potresti avere altri problemi, facendolo (ovvero dovresti essere in grado di attendere il completamento del caricamento).

 

Fulvio75

Well-Known Member

Licensed User

• Mar 13, 2020

• #3

Ok questa sera posto codice grazie

 

Fulvio75

Well-Known Member

Licensed User

• Mar 13, 2020

• #4

Intanto ho una domanda...
Che differenza c'è tra campo testo "" oppure null
Dom x as string
X=""
X= null
Non è uguale?
Va in errore quando label.text=X (null) nel ciclo però e non in debug passo passo, secondo me segna l'errore lì ma è da qualche altra parte

 

LucaMs

Expert

Licensed User

Longtime User

• Mar 13, 2020

• #5

Null si usa per gli oggetti, non per le stringhe.

Per sapere se il contenuto di una label è vuoto o lo confronti con "" oppure usi la sua proprietà Text.Length (ovviamente, meglio la prima).

 

Fulvio75

Well-Known Member

Licensed User

• Mar 13, 2020

• #6

Label.text=sub(recordset.getstring2(0) null è vuoto))

Sub(stringa as string)

If stringa=null then va in errore qui
Return ""
Else
Return ....
End

End sub

 

Last edited: Mar 13, 2020

LucaMs

Expert

Licensed User

Longtime User

• Mar 13, 2020

• #7

Stai parlando di B4A e SQLite?

 

Fulvio75

Well-Known Member

Licensed User

• Mar 13, 2020

• #8

Si

 

LucaMs

Expert

Licensed User

Longtime User

• Mar 13, 2020

• #9

LucaMs said:

Stai parlando di B4A e SQLite?

Click to expand...

Fulvio75 said:

Si

Click to expand...

Quindi recordset è un oggetto Cursor.

Fulvio75 said:

Label.text=sub(recordset.getstring2(0) null è vuoto))

Click to expand...

Sempre meglio usare delle variabili, non direttamente una view (a Label).
Sempre meglio usare il nome del campo, quindi GetString e non GetString2 - anche se a volte, per lavori particolari...!

Quindi prova:

B4X:

Dim Cognome As String ' non so che campo di db sia, faccio un esempio
Cognome = recordset.GetString("Cognome") ' <--- ovviamente nome del tuo campo
If Cognome = Null Then
    Cognome = ""
End If
lblCognome.Text = Cognome

 

Fulvio75

Well-Known Member

Licensed User

• Mar 13, 2020

• #10

Ok grazie

 

LucaMs

Expert

Licensed User

Longtime User

• Mar 13, 2020

• #11

Meglio ancora:

B4X:

Dim Cognome As String ' non so che campo di db sia, faccio un esempio
Cognome = SvuotaSeNull(recordset.GetString("Cognome")) ' <--- ovviamente nome del tuo campo
lblCognome.Text = Cognome


Sub SvuotaSeNull(Var As String) As String
    If Var = Null Then
        Return ""
    Else
        Return Var
    End If
End Sub

Così puoi applicarlo a qualunque campo stringa, più facilmente.

 

Fulvio75

Well-Known Member

Licensed User

• Mar 13, 2020

• #12

Ok provo e ti dico

 

Fulvio75

Well-Known Member

Licensed User

• Mar 13, 2020

• #13

ecco così funziona:

B4X:

sub (strTimeTablesId as string ) as string

Dim ReturnValue As StringBuilder

    Dim TimeTables As ResultSet

    ReturnValue.Initialize

    If strTimeTablesId = "" Or strTimeTablesId = Null Then 'qui crashava
    
        ReturnValue.Append(" ")
    
    Else

     .....

    end if

Return ReturnValue

end sub

con append vuole lo spazio tra le virgolette altrimenti si incazza… Booooooooo

 

Last edited: Mar 13, 2020

Fulvio75

Well-Known Member

Licensed User

• Mar 13, 2020

• #14

Come non detto… su un telefono funziona mentre sull'altro va in crash non capisco… proverò con le variabili che hai scritto

 

sirjo66

Well-Known Member

Licensed User

Longtime User

• Mar 14, 2020

• #15

Non credo che funzioni, ma prova con

B4X:

Dim Cognome As String
Cognome = "" & recordset.GetString("Cognome")

 

LucaMs

Expert

Licensed User

Longtime User

• Mar 14, 2020

• #16

sirjo66 said:

Non credo che funzioni, ma prova con

B4X:

Dim Cognome As String
Cognome = "" & recordset.GetString("Cognome")

Click to expand...

No, se il campo contiene Null, va in crash

 

Fulvio75

Well-Known Member

Licensed User

• Mar 14, 2020

• #17

Su telefoni con processore lento funziona, su quelli di ultima generazione il log dice che va in crash per valore oggetto null

 

sirjo66

Well-Known Member

Licensed User

Longtime User

• Mar 14, 2020

• #18

..... e usare un IF immediato ??

del tipo:

B4X:

Cognome = If(recordset.GetString("Cognome") = null, "", recordset.GetString("Cognome"))

 

Fulvio75

Well-Known Member

Licensed User

• Mar 14, 2020

• #19

Oggi provo... Prima di passare il dato alla funzione che restituisce il valore alla label intercetto il null del campo del record e non entro nella funzione scrivendo direttamente label.text = '"

 

LucaMs

Expert

Licensed User

Longtime User

• Mar 14, 2020

• #20

sirjo66 said:

..... e usare un IF immediato ??

del tipo:

B4X:

Cognome = If(recordset.GetString("Cognome") = null, "", recordset.GetString("Cognome"))

Click to expand...

Intendi IIF:

B4X:

Public Sub IIF(c As Boolean, TrueRes As Object, FalseRes As Object) As Object
    If c Then Return TrueRes Else Return FalseRes
End Sub