Wypełnianie tabeli
Przykład wykonuja napełnienie kolumny
Temperatura tabeli z
przykładu inicjalizacji tabeli i następujące wokolorowanie komórek tej kolumny w stosunku do kolumn
Minimum oraz
Maksymum.
W zmiennej
oTable miejmy obiekt
PmgWTable umieszczony
w edytorze grafiki.
Przykład:
JavaScriptVBScriptWybierz oraz skopiuj do schowka
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;
// *** Wypełnienie kolumny "Temperature" wartościami losowymi
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);
}
// *** Sprawdzenie limitów wartości
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);
// ustawienie koloru przy pomocy RGB String w formie "#RRGGBB" (LightBlue lub 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
' *** Wypełnienie kolumny "Temperature" wartościami losowymi
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
' *** Sprawdzenie limitów wartości
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)
' ustawienie koloru przy pomocy RGB String w formie "#RRGGBB" (LightBlue lub LightRed)
If nTemperature > nMin Then
oTable.SetCellBackColor iRow, 0, "#a8ccf0"
Else
oTable.SetCellBackColor iRow, 0, "#ff6868"
End If
Next
oTable.Draw 