If Main.cur.RowCount > 0 Then
ListView2.clear
For i=0 To Main.cur.RowCount-1
Main.cur.Position=i
ListView2.SingleLineLayout.Label.TextSize=20
Dim spz As Int =(30-(Main.sf.Len(Main.sf.Trim(Main.cur.GetString2(0).ToUpperCase.Replace("%%","'")))))
ListView2.SingleLineLayout.Label.Typeface = Typeface.MONOSPACE
ListView2.AddSingleLine(Main.sf.Trim(Main.cur.GetString2(0).ToUpperCase.Replace("%%","'")) & Main.sf.AddSpaces(spz) & (NumberFormat2(Main.cur.GetString2(2),0,2,2,False)))
Next
End If
Main.cur.close