function DeleteControl( oPanel, nItem ) local nTop, nLeft for n := Len( oPanel:aControls ) to nItem + 1 STEP -1 oPanel:aControls[ n ]:nTop := oPanel:aControls[ n - 1 ]:nTop oPanel:aControls[ n ]:nLeft:= oPanel:aControls[ n - 1 ]:nLeft...
Nages oPanel:aControls[ nItem ]:End() HB_ADel( oPanel:aControls[ nItem ], nItem, .t. ) ASize( oPanel:aControls, Len( oPanel:aControls ) ) oPanel:SetRange() oPanel:refresh() I saw on oPanel:aControls there are also the records https://i.postimg.cc/QNKWmS1C/mm.png also if I make ASize(...
To delete a record on Array I use this function del_row( oBrowse ) if ! Empty( oBrowse:aArrayData ) ADel( oBrowse:aArrayData, oBrowse:nArrayAt, .t. ) oBrowse:Refresh() endif xbrowser oBrowse:aDeleted <------ return nil it delete the row but then when I need oBrowse:aDeleted ...
... the database table containing her family's gift list. Next, she used the AFIELDS keyword to retrieve the names of the fields in the table and the ADEL keyword to delete any unnecessary information. Using the ASORT keyword, Mary sorted the list alphabetically by family member's name. She then used ...
... How can I do to insert a line between two lines and recalculate the line number (RecSelShowKeyNo)? How can I delete a line, I have tried with aDel but then it is not good when I import a new schema cData does not refresh the get columns / rows sample on New data function I load a file txt ...
Perhaps I found a solution thanks to Nages ...lesson STATIC aNatural aNatural := Array( 90 ) Function test() // where is the table buttons AEval( aNatural, { |u,i| aNatural[ i ] := i } ) @xRow,xCol ButtonBMP oOpe[10] Prompt "+" size 30,30 PIXEL FLAT OF oDlg TOOLTIP "Aggiungi un numer...
... nAt := ASCAN(alista, { | a | a == ltrim(str(atemp[n])) } ) If nAt >0 adel(alista,nAt,.t.) Endif Next return NIL Then I do a For / next cycle to activate the bmp button and finally update ...
... have to delete the first line, now I have a file that in the first line of the csv file I have the database fields and I was able to delete with adel (adata, 1) but later when I use oDbf: fw_ArrayToDBF (aData, , bProgress) to save aData in the dbf archive, the procedure inserts a first empty ...
... have to delete the first line, now I have a file that in the first line of the csv file I have the database fields and I was able to delete with adel (adata, 1) but later when I use oDbf: fw_ArrayToDBF (aData, , bProgress) to save aData in the dbf archive, the procedure inserts a first empty ...
... have to delete the first line, now I have a file that in the first line of the csv file I have the database fields and I was able to delete with adel (adata, 1) but later when I use oDbf: fw_ArrayToDBF (aData, , bProgress) to save aData in the dbf archive, the procedure inserts a first empty ...
... c, Chr(1), CRLF ), aData[ i ] := HB_ATokens( c, cSymbol, .t., .t. ) } ) if len( ATail( aData ) ) < 2 ASize( aData, Len( aData ) - 1 ) endif Adel(aData,1) <---------------- erase the first line But when I save aData on Archive, inserts an empty record as you can see here https://i.postimg.cc/jd0QGbyr/frfr.png ...
Sin FOR NEXT adel(a, 5)adel(a, 6)adel(a, 7)adel(a, 8)aSize(a, Len(a)- 4) o bien mi preferida sin FOR NEXT: aDeleteVarios(a, {|x, n| n >= 5 .and. n <= 8}) FUNCTION ...