when I have a EDIT_LISTBOX column :
- Code: Select all Expand view
- #include "fivewin.ch"
REQUEST DBFCDX
function xbtest()
local aStates
local oDlg, oBrw, oFont
RDDSETDEFAULT( "DBFCDX" )
USE STATES SHARED
aStates := FW_DbfToArray()
CLOSE STATES
USE CUSTOMER SHARED
DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-14
DEFINE DIALOG oDlg SIZE 700,400 PIXEL TRUEPIXEL FONT oFont
@ 20,20 XBROWSE oBrw SIZE -20,-20 PIXEL OF oDlg ;
DATASOURCE "CUSTOMER" ;
COLUMNS "First", "City", "State" ;
CELL LINES NOBORDER FASTEDIT
WITH OBJECT oBrw
:nEditTypes := EDIT_GET
WITH OBJECT :State
:nEditType := EDIT_LISTBOX
:aEditListTxt := aStates
END
//
:CreateFromCode()
END
ACTIVATE DIALOG oDlg CENTERED
RELEASE FONT oFont
return nil
and I need to export to Excel , in the column "State" I have the item 'State'
It's possible have in Excel the text of aStates ?
Regards Maurizio
http://www.nipeservice.com
