i try to "SET" a new Array for XBROWSE
- Code: Select all Expand view
- STATIC oMain
STATIC aData
PROCEDURE MAIN( cDbf1, cDbf2 )
aData := {}
DEFINE WINDOW oMain ...
@ 120,10 XBROWSE oBrw SIZE 800-40,600-160 PIXEL OF oMain ;
DATASOURCE aData AUTOCOLS
oBrw:CreateFromCode()
oBrw:hide()
later i "fill" Array aData and try to "show" it
- Code: Select all Expand view
- IF ! EMPTY(aData)
* DoXBROWSE() // work
* oBrw:aArrayData := aData
oBrw:SetArray(aData,,,aCols) // aCols := {1,2,3,...}
oBrw:show()
oBrw:Refresh()
ELSE
MsgInfo("no Data")
ENDIF
but it does show me only 1st Column "A"
---
it does work when create XBROWSE after "fill" Array
- Code: Select all Expand view
- PROCEDURE DoXBROWSE()
LOCAL nWidth := oMain:nWidth
LOCAL nHeight := oMain:nHeight
LOCAL oBrw
IF !EMPTY(aData)
@ 120,10 XBROWSE oBrw SIZE nWidth-20,nHeight-120 PIXEL OF oMain ;
DATASOURCE aData AUTOCOLS
oBrw:CreateFromCode()
oBrw:SetFocus()
ENDIF
RETURN
what i´m doing wrong