Tnx, Darjo
- Code: Select all Expand view
#include "FWCE.ch"
FUNCTION Main()
PRIVATE ocbNah
arrNahaja:={'1a','1b','1c'}
STORE 1 TO cIzbPe,cIzbNah
DEFINE WINDOW owInv
@ 93,0 SAY 'Main:' PIXEL
@ 108,0 COMBOBOX cIzbPe ITEMS {'001','002'} PIXEL SIZE 240,200 ON CHANGE Inv_Nasta2()
@ 135,0 SAY 'Sub:' PIXEL
@ 150,0 COMBOBOX ocbNah VAR cIzbNah ITEMS arrNahaja PIXEL SIZE 240,200
ACTIVATE WINDOW owInv
return nil
********************************
FUNCTION Inv_Nasta2()
********************************
arrNahaja:=array(0)
arrNahaja:={'2a','2b'}
ocbNah:Refresh() && why does it not work ???
RETURN (.t.)
