Something like:
Code: Select all
// grid with 7 colums
FOR i = 1 TO GetProperty ("Form_1", "Grid_1", "ItemCount")
aItem := Form_1.Grid_1.Item ( i )
DO CASE
CASE aItem [7] == 'Y'
SetProperty ("Form_1", "Grid_MESS", "BackColor", i, { RED, RED, RED, RED, RED, RED, RED } )
CASE aItem [1] == 'OK'
SetProperty ("Form_1", "Grid_MESS", "BackColor", i, { GREEN, GREEN, GREEN, GREEN, GREEN, GREEN, GREEN } )
CASE aItem [1] == 'NOK' .AND. aItem [7] == 'Y'
SetProperty ("Form_1", "Grid_MESS", "BackColor", i, { GREEN, GREEN, GREEN, GREEN, GREEN, GREEN, RED } )
OTHERWISE
ENDCASE
NEXT i
Form_1.Grid_1.Refresh
Thanks and greetings,
Serge