A problem with xBrowse and arrays
Posted: Wed May 02, 2018 1:51 pm
Can you tell me why this sample selects the workarea 0 after closing the window?
EMG
Code: Select all
#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