FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour A problem with xBrowse and arrays
Posts: 9020
Joined: Thu Oct 06, 2005 08:17 PM
A problem with xBrowse and arrays
Posted: Wed May 02, 2018 01:51 PM
Can you tell me why this sample selects the workarea 0 after closing the window?

Code (fw): Select all Collapse
#include "fivewin.ch"


FUNCTION MAIN()

    LOCAL oWnd, oBrw, oCol

    LOCAL aCell := { {} , {} ,{} ,{} ,{} ,{} ,{} }

    SELECT 0

    USE CUSTOMER

    AADD( aCell[ 1 ] , "One"   )
    AADD( aCell[ 1 ] , "Two"   )
    AADD( aCell[ 1 ] , "Three" )

    DEFINE WINDOW oWnd

    @ 100, 100 XBROWSE oBrw OF oWnd DATASOURCE aCell CELL LINES

    oCol = oBrw:AddCol()
    oCol:bEditValue   = { || aCell[ 1 , oBrw:nArrayAt  ] }

    oBrw:CreateFromCode()

    oWnd:oClient = oBrw

    ? "Before:", ALIAS(), SELECT()

    ACTIVATE WINDOW oWnd

    ? "After:", ALIAS(), SELECT()

    RETURN NIL


EMG

Continue the discussion