How to make the specified ITEM cell color?
Problem Description:
How to change the unit font modified after using Setitem to become a blue, other cells still keep the black font?
solution:
String ls_modstring, ls_rows []
Long Ll_Row, LL_COL, LL_POS
For ll_pos = 1 to long (dw_1.object.dataWindow.column.count)
LS_ROWS [LL_POS] = ""
NEXT
DW_1.SetredRAW (false)
/ / Suppose you want to modify the second line, column 1
LL_ROW = 2
LL_COL = 1
DW_1.SETITEM (LL_ROW, LL_COL, "TestData")
IF LEN (LS_ROWS [LL_COL] = 0 THEN
LS_ROWS [LL_COL] = String (LL_ROW)
Else
LS_ROWS [LL_COL] = Ls_ROWS [LL_COL] "," String (LL_ROW)
END IF
LS_MODSTRING = "#" string (ll_col) ". Color = '0 ~ tcase (GetRow () WHEN LS_ROWS [LL_COL] " THEN RGB (0,0,255) Else RGB (0, 0, 0))' "
DW_1.MODIFY (LS_ModString)
/ / Suppose you want to modify the 4th line, column 2
LL_ROW = 4
LL_COL = 2
DW_1.SETITEM (LL_ROW, LL_COL, "TestData2")
IF LEN (LS_ROWS [LL_COL] = 0 THEN
LS_ROWS [LL_COL] = String (LL_ROW)
Else
LS_ROWS [LL_COL] = Ls_ROWS [LL_COL] "," String (LL_ROW)
END IF
LS_MODSTRING = "#" string (ll_col) ". Color = '0 ~ tcase (GetRow () WHEN LS_ROWS [LL_COL] " THEN RGB (0,0,255) Else RGB (0, 0, 0))' "
DW_1.MODIFY (LS_ModString)
DW_1.SetredRaw (True)
