FiveTech Support Forums

Hello,

I have a strange problem in a wbrowse.

This is a part of the code :

SET KEY VK_DELETE TO tDelete
...............
REDEFINE LISTBOX oLbx ID 101 OF oDlg  FIELDS "","","","" .......
oLbx:bLine := {||{Fld1,Fld2,Fld3,Fld4,...}}
...............
REDEFIN BUTTON ID 901 OF oDlg ACTION tDelete()
...............

STATIC PROCEDURE tDELETE
// This procedure performs the delete-function of the choosen line in the wbrowse.

So I have defined the Delete-button of my keyboard as the button which performs tDelete().

If the focus is on the last line of the wbrowse and I click with my mouse on the "DELETE" button in my dialog box, everything is happening as it should be : the last line of my wbrowse is deleted and my wbrowse is updated and refreshed.

But if the focus still is on the last line of the wbrowse and I push the Delete-button of my keyboard, I always get a "Bound error: Array access", refering to the line of the oLbx:bLine.

Why does it work if a pushbutton in the dialogbox is used and why doesn't it worked if a linked key on my keyboard is used, although it performs exactly the same procedure ?

I also noticed that, if I click on any line but the last line and I go back to the last line to delete it, both possibilities for deletion perform without any error.

Thanks a lot in advance.

Regards,

Thanks for your answer, but that line already is in my source. So that is not the reason for the problem.

But thanks anyway for your effort.

Michel,

you have to update record pointer, add (<cAlias>)->dbGoBottom() or dbSkip (0) before refreshing the browse

Stefan,

My wbrowse contains an array, not a DBF-file directly.

Thanks.

hello driessen

what do you use, harbour or xHarbour
how do you delete?

driessen wrote:Stefan,

My wbrowse contains an array, not a DBF-file directly.

Thanks.

Driessen,
i use wbrowse with array in this sample:

 aDatos := {}

 REDEFINE LISTBOX oLbx FIELDS "" ;
                     HEADER "", "Cantidad", "U.M.", "Descripción", "Observaciones" ;
                     SIZES 20, 60, 44, 290, 264 ;
                     ID 116 OF oDlg FONT oFnt[1] UPDATE

       oLbx:bLine:= {|nAt| nAt:= oLbx:nAt,                      ;
                           If( Len(aDatos)<1 .or. nAt>Len(aDatos),;
                             Array(5),                            ;
                             { If( oLbx!=Nil .and. oLbx:lSelect, hBmp, 0 ),;
                               Transform( aDatos[nAt,1],"99,999.999" ),;
                               aDatos[nAt,2],;
                               aDatos[nAt,3],;
                               aDatos[nAt,4] } ) }

       oLbx:SetArray( aDatos )

Regards
Paco