FiveTech Software tech support forums

... Self  but you have to change the function SetObjet to function SetObject( cVarName, bConstructor )   local oSelf   AAdd( aObjects, oSelf := Eval( bConstructor ) )   if __ObjHasMsg( ATail( aObjects ), "cVarName" ) .and. ;      __ObjHasMsg( ...

This way ADD COLUMN oCol TO XBROWSE aObjects[6] DATA ARRAY ELEM aBrwDetails[i,3]; HEADER oemtoansi(aBrwDetails[i,1]) SIZE aBrwDetails[i,2] ORDER ABRWDETAILS[I,3] if valtype(aBrwArray[1,aBrwDetails[i,3]])="D" && if date xxxx:=aBrwDetails[i,3] ...

... if !o:oSQLite:lError // Cargamos los OBJETOS oRs:=o:oSQLite:Query("SELECT * FROM Objects") if !o:oSQLite:lError oRs:movefirst() o:aObjects:={} while !oRs:eof() aadd(o:aObjects,{o:oSQLite:GetValue(oRs,"idObject"),o:oSQLite:GetValue(oRs,"description"),o:oSQLite:GetValue(oRs,"imgBtnObject"),o:oSQLite:GetValue(oRs,"imgObject"),o:oSQLite:GetValue(oRs,"imgObjectSelected")}) ...

... for more than 0.25 seconds. Could be this a problem ? See my code as follows. Function Main() .. && I create xbrowse as Objects[6] .. .. aObjects[6]:bChange:={|| SelectFunc_Cons()} && action to do when any selection is made return Function SelectFunc_Cons() local nSeconds aObjects[6]:bChange:={|| ...

Credo di aver risolto: .. .. aObjects[6]:bChange:={|| SelectFunc_Cons()} ... .. Function SelectFunc_Cons() local nSeconds aObjects[6]:bChange:={|| nil} nSeconds:=seconds() do while .t. sysrefresh() if seconds()-nSeconds>.25 exit endif ...

Marco Turco wrote:** column with progressive number **
Objects[6]:AddColumn(TCColumn():New( "", {||aObjects[6]:nAt},,,,, 25 ) )

Should be:
aObjects[6]:AddColumn(TCColumn():New( "", {||aObjects[6]:nAt},,,,, 25 ) )

Regards

Manuel Mercado

Tried but a Bound Error:Array access appairs. Any ideas ? function Child() local oWndChild, nI, bData, aObjects[ 10], ; aTitles := { "Num", "Title" } DEFINE WINDOW oWndChild MDICHILD OF oWnd ; FROM 10, 50 TO 250, 400 PIXEL COLOR "N/W" aBrwArray:={} aadd(aBrwArray,{"01","First"}) ...

Marco Turco wrote:Could you suggest me what is the correct codeblock code to make also
a column with the progressive number ?
Like the command:
ADD TO oBrw DATA oBrw:nAt()

Following your same example:

aObjects[6]:AddColumn(TCColumn():New( "", {||aObjects[6]:nAt},,,,, 25 ) )

Regards

Manuel Mercado

Niente da fare. Il browse appare ma vuoto. Comunque ho risolto con: aObjects[6]:AddColumn(TCColumn():New("Num",{|x| ; If(Pcount()>0, aObjects[6]:aArray[aObjects[6]:nAt, 1] :=x, aObjects[6]:aArray[aObjects[6]:nAt, 1])},,,,,100)) anche se mettendo questo ...

... Thanks. The only problem is that I try to assign the columns through a for cicle I receive an array access error message. My code: for i:=1 to 2 aObjects[6]:AddColumn(TCColumn():New("Num",{|x| ; If(Pcount()>0, aObjects[6]:aArray[aObjects[6]:nAt, i] :=x, aObjects[6]:aArray[aObjects[6]:nAt, ...

... Any ideas about the correct syntax ? aBrwArray:=array(0,2) aadd(aBrwArray,{"01","First"}) aadd(aBrwArray,{"02","Second"}) @ 1.5,5 COLUMN BROWSE aObjects[6] OF oWnd SIZE 150, 135 aObjects[6]:SetArray(aBrwArray) aObjects[6]:AddColumn(TCColumn:New("Num",aObjects[6]:aArray[aObjects[6]:nAt,1],,,,,100)) ...

... idea ? Questo è un codice di esempio: aBrwArray:=array(0,2) aadd(aBrwArray,{"01","Primo"}) aadd(aBrwArray,{"02","Secondo"}) @ 1.5,5 COLUMN BROWSE aObjects[6] OF oWnd SIZE 150, 135 aObjects[6]:SetArray(aBrwArray) aObjects[6]:AddColumn(TCColumn:New("Num",aObjects[6]:aArray[aObjects[6]:nAt,1],,,,,100)) ...