Format bunky v B4XTable

Ahojte
Potreboval by som poradit ako dostanem formatovanie do bunky do takehoto vzoru: (vid prilohu)

Kod:
B4X:
 NacitajDatabazu
'    DbTabulka.Clear
    'DbTabulka.AddColumn("Id",DbTabulka.COLUMN_TYPE_NUMBERS)
    DbTabulka.AddColumn("Studená - m3",DbTabulka.COLUMN_TYPE_NUMBERS)
    DbTabulka.AddColumn("Teplá - m3",DbTabulka.COLUMN_TYPE_NUMBERS)
    DbTabulka.AddColumn("Elektrika - kWh",DbTabulka.COLUMN_TYPE_NUMBERS)
    
    Dim Data As List
    Data.Initialize
    Dim rs As ResultSet=sql1.ExecQuery("SELECT SV, TV, Elektrika FROM Tabulka")
    
    Do While rs.NextRow
        Dim row(3)  As Object
        'row(0)=rs.GetInt("Id")
        row(0)=rs.Getdouble("SV")
        row(1)=rs.GetDouble("TV")
        row(2)=rs.GetDouble("Elektrika")
        Data.Add(row)
    Loop
    rs.Close
    DbTabulka.SetData(Data)   
'   
    
End Sub
 

Attachments

  • help1.png
    help1.png
    89.7 KB · Views: 397
Top