kotlas6667
Member
Ahojte
Potreboval by som poradit ako dostanem formatovanie do bunky do takehoto vzoru: (vid prilohu)
Kod:
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