FiveTech Support Forums

Dear all,


*-----------------------*
function Main()

local odlg,ofol,oget,obtn
local cVar := space(5),lsave := .f.
local nVar := 0

open file xx

define dialog...

@ 5,5 folder ofol ....

ofol:bChange := {|| if(ofol:nOption=2,OpenFol2(oFol,nVar),)}

@ 5,5 Get oget Var cVar....Of oFol:aDialogs[1]

@ 10,10 button obtn of odlg....action (lsave := .t.,odlg:end())

activate dialog...

if lsave
xx->dbappend()
if xx->(rlock())
xx->1 := cVar
xx->2 := nVar
endif
xx->(dbcommit())
xx->(dbunlock())

endif


close file xx

Return nil

*-----------------*
function OpenFol2(oFol,nVar)
local oget

@ 5,5 Get oget Var nVar....of ofol:aDialogs[2]

return Nil
*---------------------*

Why I can not get anything in nVar ? How to fix it for ture way ?

Best Regrad,

Peter

PS. I'm use Fw2.1c and Blinker 7

Peter,

ofol:bChange := {|| if(ofol:nOption=2,OpenFol2(oFol,@nVar),)}