If result.RowCount > 0 Then
Do While result.NextRow
Dim CardItem As dtransazione
CardItem.txtData = DateTime.Date(result.GetString("movData"))
CardItem.txtconto = result.GetString("movConto")
CardItem.txtcategoria = result.GetString("movCategoria")
CardItem.txtDescrizione = result.GetString("movDescrizione")
CardItem.txtbeneficiario = result.GetString("movPersona")
CardItem.txtprice = result.GetString("movImporto")
If CardItem.txtprice >= 0 Then
img = "increaseappicon.png"
Else
img = "moneydownicon.png"
End If
CardItem.imgg = img
Dim p As B4XView = xui.CreatePanel("") ' Crea un pannello principale
p.SetLayoutAnimated(0, 0, 0, CvlMovTot.AsView.Width, 145dip)
CvlMovTot.Add(p,CardItem) ORIGINAL WORKING
CvlMovTot.Add(createitem446(CardItem),Swipe.CreateItemValue(CardItem, Array("close operation")))
Loop
Else
CvlMovTot.AddTextItem("No Transactions yet",0)
Log($"Nessun elemento nella tabella $tableName"$)
End If
result.Close