FiveTech Software tech support forums

I had a same problem in FW1.9.2 and I solved it by replacing aGets array with vars: for nGt := 1 to len( aFlds ) cFld := aFlds[ nGt ] xVar="x"+strzero(nGt,3) @ nRw, nCol GET oGets[ nGt ] VAR &xVar ..... next I hope that it works in FW for Harbour too Yes Goran ...

I had a same problem in FW1.9.2 and I solved it by replacing aGets array with vars:

for nGt := 1 to len( aFlds )
cFld := aFlds[ nGt ]
xVar="x"+strzero(nGt,3)
@ nRw, nCol GET oGets[ nGt ] VAR &xVar .....
next

I hope that it works in FW for Harbour too.

Regards

Goran

... very usefull for building dialog's , also afterwards when they must be referenced in another get LOCAL oGets := Hash() LOCAL aPct := Hash() for nGt := 1 to len( aFlds ) cFld := aFlds[ nGt ] @ nRw, nCol GET oGets[ cFld ] VAR aGets[ nGt ] PICTURE aPct[ cFld ] PIXEL SIZE nSz, nFh VALID n_pas( cAlias, ...

... very usefull for building dialog's , also afterwards when they must be referenced in another get LOCAL oGets := Hash() LOCAL aPct := Hash() for nGt := 1 to len( aFlds ) cFld := aFlds[ nGt ] @ nRw, nCol GET oGets[ cFld ] VAR aGets[ nGt ] PICTURE aPct[ cFld ] PIXEL SIZE nSz, nFh VALID n_pas( cAlias, ...

... solution it can be at oDlg close moment , but I want to do that in oGet stage All is workig OK . Simply create codeblock local bCdb := { |oGet, nGt, others params...| get_blc( oGet, nGt, other params ..) } Now in the loop evaluate codeblock for nGt := 1 to len( aFlds ) oGet[ nGt ] = eval( bCdb, ...

local oGets[ len( aFlds ) ] ... for nGt := 1 to len( aFlds ) cFld := aFlds[ nGt ] @ nRw, nCol GET oGets[ nGt ] VAR aGets[ nGt ] PICTURE aPct[ nGt ] PIXEL SIZE nSz, nFh VALID n_pas( cAlias, cFld ) next It seems that this isn't working .. :-(( ...

Hi ! I want to assign gets in for .. next . Here is a small sample : local oGets[ len( aFlds ) ] ... for nGt := 1 to len( aFlds ) cFld := aFlds[ nGt ] @ nRw, nCol GET oGets[ nGt ] VAR aGets[ nGt ] PICTURE aPct[ nGt ] PIXEL SIZE nSz, nFh VALID n_pas( cAlias, cFld ) next It seems ...