Naplnění tabulky
Příklad provede plnění sloupce
Teplota tabulky v
příkladu inicializace tabulky hodnotami a následné zbarvení buňek tohoto sloupce vzhledem k sloupcům
Minimum a
Maximum.
V proměnné
oTable mějme objekt
PmgWTable umístěný
v editoru grafiky.
Příklad:
JavaScriptVBScriptVyber a zkopíruj do schránky
var oTable = pMe;
oTable.SetCellText(0, 0, "Temperature");
oTable.SetCellText(0, 1, "Minimum");
oTable.SetCellText(0, 2, "Maximum");
var nRows = oTable.Rows - 1;
var iRow;
// *** Vyplnění sloupce "Temperature" náhodnými hodnotami
var nTemperature;
var nMin = 20;
var nMax = 80;
for (iRow = 1; iRow <= nRows; iRow++)
{
oTable.SetCellText(iRow, 0, Pm.Round(Pm.Random(0, 100), 1));
oTable.SetCellText(iRow, 1, nMin);
oTable.SetCellText(iRow, 2, nMax);
}
// *** Kontrola mezí hodnot
for (iRow = 1; iRow <= nRows; iRow++)
{
nTemperature = Pm.Round(oTable.GetCellText(iRow, 0), 1);
nMin = Pm.Round(oTable.GetCellText(iRow, 1), 1);
nMax = Pm.Round(oTable.GetCellText(iRow, 2), 1);
// nastavení barvy pomocí RGB String v podobě "#RRGGBB" (LightBlue nebo LightRed)
oTable.SetCellBackColor(iRow, 0, nTemperature > nMin ? "#a8ccf0" : "#ff6868");
}
oTable.Draw();
Dim oTable
Set oTable = pMe
oTable.SetCellText 0, 0, "Temperature"
oTable.SetCellText 0, 1, "Minimum"
oTable.SetCellText 0, 2, "Maximum"
Dim nRows
nRows = oTable.Rows - 1
Dim iRow
' *** Vyplnění sloupce "Temperature" náhodnými hodnotami
Dim nTemperature
Dim nMin
nMin = 20
Dim nMax
nMax = 80
For iRow = 1 To nRows
oTable.SetCellText iRow, 0, Pm.Round(Pm.Random(0, 100), 1)
oTable.SetCellText iRow, 1, nMin
oTable.SetCellText iRow, 2, nMax
Next
' *** Kontrola mezí hodnot
For iRow = 1 To nRows
nTemperature = Pm.Round(oTable.GetCellText(iRow, 0), 1)
nMin = Pm.Round(oTable.GetCellText(iRow, 1), 1)
nMax = Pm.Round(oTable.GetCellText(iRow, 2), 1)
' nastavení barvy pomocí RGB String v podobě "#RRGGBB" (LightBlue nebo LightRed)
If nTemperature > nMin Then
oTable.SetCellBackColor iRow, 0, "#a8ccf0"
Else
oTable.SetCellBackColor iRow, 0, "#ff6868"
End If
Next
oTable.Draw