Insert an record on array

[Silvio.Falconi]

I have an array of 32 fields that I process with xbrowse.
I need to insert a record between two rows
the first field must be "codsep" field
how can I do ?


TO paste an record of oBrw:aArrayData I use an array aCopy where I save the row Copied (oBrw:aselected) and I use these commands

Code: Select all  Expand view

oBrw:Lock()
              For n=1 to Len(acopy)
                aCopy[n][1] := codsep
                aCopy[n][32] := 0
                aadd( oBrw:aArrayData, aCopy[n] )
              Next
      oBrw:Unlock( .t. )

 

but this paste the record at the end of oBrw:aArrayData, How I can to insert all aCopy between two rows

[nageswaragunupudi]

Code: Select all  Expand view

HB_AINS( oBrw:aArrayData, nPos, aRow, .T. )

[Silvio.Falconi]

Code: Select all  Expand view

HB_AINS( oBrw:aArrayData, nPos, aRow, .T. )

nPos could be the number of record selected ?

[Antonio Linares]

Dear Silvio,

Arguments
aArray The array name into which the value xValue will be inserted.
nPos Subscript position in aArray. Default: 1st position
xValue Value to be inserted
lAutoSize Boolean flag to increase or not the size of aArray.
Default value: .F.

https://harbour.github.io/doc/harbour.html#hb_ains

example:

Code: Select all  Expand view

function Main()

   local a1 := { 1, 2, 3 }
   local a2 := { 4, 5 }

   ? HB_AIns( a1, 2, a2, .T. )

return nil

result:

{1, {4, 5}, 2, 3}

[Silvio.Falconi]

Dear Silvio,

Arguments
aArray The array name into which the value xValue will be inserted.
nPos Subscript position in aArray. Default: 1st position
xValue Value to be inserted
lAutoSize Boolean flag to increase or not the size of aArray.
Default value: .F.

https://harbour.github.io/doc/harbour.html#hb_ains

example:

Code: Select all  Expand view

function Main()

   local a1 := { 1, 2, 3 }
   local a2 := { 4, 5 }

   ? HB_AIns( a1, 2, a2, .T. )

return nil

result:

{1, {4, 5}, 2, 3}

I have insert a record on multiple array