FiveTech Software tech support forums

Dear Jimmy,

nAt = AScan( ::aControls, { | oControl | oControl:hWnd == hChild } )
::aControls[ nAt ]

... ( IIF(Len(oBrw:aselected) >1,aClone:=Giverows(oBrw),; aCopy := aclone(oBrw:aRow)),; oBrw:SetFocus() ) Function Giverows(oBrw) local n,atmp:={},nAt For n= 1 to Len( oBrw:aselected) nAt := oBrw:aArrayData[ oBrw:aselected[n] ] aadd( aTmp, aclone(nat)) next return aTmp But then the paste is wrong

... run ok oBrw:aSelected give number or numbers not the row oBrw:aRow is as ::aArrayData[ ::nArrayAt ] you can make For n= 1 to Len( oBrw:aselected) nAt := oBrw:aArrayData[ oBrw:aselected[n] ] aadd( acopy, aclone(nat)) next just an idea

... IIF(Len(oBrw:aseleted) >1,Aclone:= Giverows (oBrw),aCopy := aclone(oBrw:aRow)),; oBrw:SetFocus() ) Function Giverows (oBrw) local n,uBook,nAt local aTmp:= {} For n = 1 to len(oBrw:aselected) uBook := Eval( oBrw:bBookMark ) nAt := Ascan( oBrw:aSelected, uBook ) aCopy:= aclone(oBrw:aArrayData[ ...

... xbusco, obusco, oRS1 ), oBrw:recset := ors1 ) of odlgSTK REDEFINE combobox oOrden var xOrden items tOrden ID 212 on change ( xOrden := oOrden:nAt, CambioOrden( ors1 ,xorden), obusco:setfocus() ) OF odlgSTK REDEFINE XBROWSE oBrw ID 181 recset oRS1 OF oDlgSTK FIELDS ; iif ( ( oRS1:Fields( "disconti" ...

... var xdomic ID 206 OF ofld1:aDialogs[ 1 ] REDEFINE COMBOBOX oAudit_ant var wAudit_Ant ITEMS Taudit_antf ; ON CHANGE ( xAudit_Ant := oAudit_ant:nAt, CargoAntInfo( xAudit_Ant, ofld1:aDialogs[ 1 ] ) ) ; ID 4001 OF ofld1:aDialogs[ 1 ] when len( Taudit_antf ) > 0 REDEFINE say oNaudit var xnaudit ...

... esta forma tengo que almacenar en un array y despues en el boton de acceso a los datos que seleccione del combobox tengo que leer el array por un :nAt del combobox, lo que quisiera es no tener que hacer eso, directamente que cuando seleccione del combobox me devuelva la columna del "indice" ...

... var xdomic ID 206 OF ofld1:aDialogs[ 1 ] REDEFINE COMBOBOX oAudit_ant var wAudit_Ant ITEMS Taudit_antf ; ON CHANGE ( xAudit_Ant := oAudit_ant:nAt, CargoAntInfo( xAudit_Ant, ofld1:aDialogs[ 1 ] ) ) ; ID 4001 OF ofld1:aDialogs[ 1 ] when len( Taudit_antf ) > 0 ......... *------------------------------------------------------------------------------------------------------------- ...

Perhaps, if you are using pellesC, you need to "remove" the SORT variable in the combobox as NO.

Maybe:
ON Change := cTipo_Cli[ oCbx:nAt ]

Regards, saludos.

... local nValore:= 6 local nTipo := 3 run ok For n= 1 to 90 For k= 1 to 90 For j= 1 to 90 nTotale := Calcolo_3_numeri(n,k,j,ntipo) If nTotale=nvalore nAt := AScan( aTmp, { |a| a[1] = k .and. a[2] = n .or. a[3] = j } ) If nAt == 0 aadd(aTmp,{n,k,j}) Endif Endif next next next I understood the error ...

change into For n= 1 to 90 For k= 1 to 90 For j= 1 to 90 nTotale := Calcolo_3_numeri(n,k,j,ntipo) If nTotale=nvalore nAt := AScan( aTmp, { |a| a[1] = j .and. a[2] = k .or. a[3] = n} ) If nAt == 0 aadd(aTmp,{n,k,j}) Endif Endif next next next the calc is fast but is also bad because ...

Dear Silvio,

@ 2, 280 GET oGet VAR ::nyear SIZE 150,22 PIXEL OF ::oBar WHEN aShowCbx[2]:nat= 2 VALID ( aShowCbx[2]:Set( 2 ), .T. )

... ::oBar HEIGHTGET 18 STYLE CBS_DROPDOWN ; ON Change oGet:refresh() //get @ 2, 280 GET oGet VAR ::nyear SIZE 150,22 PIXEL OF ::oBar WHEN aShowCbx[2]:nat= 2

... "Aggiungi un numero"; action OneNumb(oBtnNum, oSay,@aNatural ) ..... Function OneNumb(oCmb, oSay,aNatural ) local atemp := {} local nAt,nAp local cNum //check and del to aNatural the numbers are allready on alista For n=1 to Len(aLista) cNum:= alista[n] nAp:= AScan( aNatural, val(cNum) ...

... oOpe[10] Prompt "+" size 30,30 PIXEL FLAT OF oDlg TOOLTIP "Aggiungi un numero"; WHEN Len( aNatural ) > 0 ; ACTION ( nAt := HB_RandomInt( 1, Len( aNatural ) ), ; AAdd( aLista, aNatural[ nAt ] ), ; HB_ADel( aNatural, nAt, .t. ), ; AddOne(oBtnNum,aLista,oSay) ) Function ...