Hallo Bernd,
| |
oGrd.SetAll("dynamicforecolor", ;
"IIF(VAL(lv_zergeb.lfd_nr)/3= INT(VAL(lv_zergeb.lfd_nr)/3),RGB(255,255,255),RGB(128, 128, 128))", "Column")
oGrd.SetAll("dynamicbackcolor",;
"IIF(VAL(lv_zergeb.lfd_nr)/3= INT(VAL(lv_zergeb.lfd_nr)/3),RGB(255,0,0),RGB(0, 0, 255))", "Column")
|
das könntest Du auch eleganter mit der MOD()-Funktion lösen:
IIF(MOD(lv_zergeb.lfd_nr,3)=0 bzw.
IIF(MOD(lv_zergeb.lfd_nr,3)<>0
und um den Code lesbarer und flexibler zu machen geht auch das:
DynamicBackColor=THISFORM.SetDynamicBackColor()
und in der Form eine neue Methode SetDynamicBackColor z.B. so
...
DO CASE
CASE MOD(lv_zergeb.lfd_nr,3) = 0
RETURN RGB(255,0,0)
CASE MOD(lv_zergeb.lfd_nr,3) <> 0
RETURN RGB(0,0,255)
ENDCASE
...
Gruß
Thomas
|
