when I have a EDIT_LISTBOX column :
Code: Select all
#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
It's possible have in Excel the text of aStates ?
Regards Maurizio
http://www.nipeservice.com