Italian Popolamento customlistview

[LucaMs]

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

Questo non quadra, non sembra avere a che fare col campo Null.
Se tu potessi pubblicare il progetto, magari parziale...!

 

[Fulvio75]

Motorola C 1.2 GHz va... Booooooo
Provato con F8 passo passo va su tutti

 

[LucaMs]

Se ti fidi, mandami il progetto in una conversazione privata.

Oppure, come detto, pubblica la sola parte interessata, ma in un progetto.

 

[sirjo66]

Intendi IIF

Esatto, non mi ricordavo il nome

 

[Fulvio75]

Ok oggi posto

 

[Star-Dust]

A motivo del decreto sul coronavirus si stanno svuotando le città e le customListView.

Dopo il 3 aprile forse avremo le customListView popolate.

 

[Fulvio75]

A motivo del decreto sul coronavirus si stanno svuotando le città e le customListView.

Dopo il 3 aprile forse avremo le customListView popolate.

 

[LucaMs]

A motivo del decreto sul coronavirus si stanno svuotando le città e le customListView.

Dopo il 3 aprile forse avremo le customListView popolate.

Per il momento pare che sia sufficiente impostare il DividerSize a non meno di 10dip.

 

[Fulvio75]

 

[Fulvio75]

Questo è il codice:

'label 'questo può essere nullo
lblTimeTables.Text = AppFuncions.GetNotShiftTimeTables(Fields.TimeTables)

Sub GetNotShiftTimeTables(strTimeTablesId As String) As String
 
    Dim ReturnValue As StringBuilder

    Dim TimeTables As ResultSet
 
    ReturnValue.Initialize

    If strTimeTablesId = "" Or strTimeTablesId = Null Then
     
        ReturnValue.Append("")
     
    Else
     
        TimeTables = DBConnection.SQLConn.ExecQuery("SELECT * FROM SheetsTimeTables WHERE TimeTableId IN (" & strTimeTablesId & ") ORDER BY StartTime ASC")
         
        For TimeTableId = 0 To (TimeTables.RowCount-1)
     
            TimeTables.Position = TimeTableId

            If TimeTableId > 0 Then
                ReturnValue.Append(CRLF)
            End If
    
            ReturnValue.Append(TimeTables.GetString2(2))
            For i = 1 To (3-TimeTables.GetString2(2).Length)
                ReturnValue.Append(" ")
                ReturnValue.Append(" ")
            Next
            ReturnValue.Append(" ")
 
           
            ReturnValue.Append("T")
            ReturnValue.Append(TimeTables.GetString2(3))
            For i = 1 To (3-TimeTables.GetString2(3).Length)
                ReturnValue.Append(" ")
                ReturnValue.Append(" ")
            Next
 
         
            ReturnValue.Append(TimeTables.GetString2(4))
            ReturnValue.Append(" ")
 
        
            ReturnValue.Append(TimeTables.GetString2(5))
            ReturnValue.Append("-")
 
       
            ReturnValue.Append(TimeTables.GetString2(6))
            ReturnValue.Append(" ")
 
         
            ReturnValue.Append(TimeTables.GetString2(7))
     
        Next
     
        TimeTables.Close
     
    End If
     
    Return ReturnValue.ToString
 
End Sub

 

[Fulvio75]

Ho provato nuovamente la sub funzione non va in crash quando sono in modalità passo passo con F8

 

[LucaMs]

Ho appena provato i due progetti, b4a e b4j di cui avevi pubblicato (e cancellato) il link:
https://www.b4x.com/android/forum/threads/b4x-network-asyncstreams-b4xserializator.72149/
A parte piccoli problemi, funzionano perfettamente.

Stai pubblicando parti di codice e di errore che non ci consentono di darti una mano.

 

[Fulvio75]

Risolto ho raggirato il problema se il record è null non chiamo la sub funzione e scrivo una stringa vuota nella label.
Per provarlo dovrei pubblicare l'intero progetto con db compreso.
Grazie per il tempo concesso, passo ad altro codice per altre funzioni.