I have created a tDatabase oDbf with these fields
- Code: Select all Expand view
DBF_STRU := { }
AADD( DBF_STRU, { "CustID", "C", 15, 0 } )
AADD( DBF_STRU, { "SceisId", "C", 21, 0 } )
AADD( DBF_STRU, { "CustName", "C", 50, 0 } )
AADD( DBF_STRU, { "CustAdd1", "C", 50, 0 } )
AADD( DBF_STRU, { "CustCity", "C", 35, 0 } )
AADD( DBF_STRU, { "CustState", "C", 2, 0 } )
AADD( DBF_STRU, { "CustZip", "C", 30, 0 } )
AADD( DBF_STRU, { "CustPh", "C", 15, 0 } )
AADD( DBF_STRU, { "CustCont", "C", 36, 0 } )
AADD( DBF_STRU, { "CustMail", "C", 50, 0 } )
And it works
xBrowse( oDbf )
For whatever reason when I create an xBrowse from resource and code .. all I get is a blank browse
- Code: Select all Expand view
REDEFINE xBROWSE oLBX ;
DATASOURCE oDbf ;
COLUMNS "CUSTID", ;
"SCEISID", ;
"CUSTNAME", ;
"CUSTPH", ;
"CUSTCONT" ;
COLSIZES 65,65,150,85,150 ;
HEADERS "Cust Id", ;
"Sceis Id", ;
"Customer Name", ;
"Phone", ;
"Contact Person" ;
ID 172 of oGrps ;
AUTOCOLS LINES CELL
oLbx:nMarqueeStyle := MARQSTYLE_HIGHLROW
oLbx:lRecordSelector := .f.
oLbx:lHScroll := .f. // turn off horiz scroll bar
xbrowse( oDbf ) // blank fields and oLbx never resolves ..
What am I doing wrong ??
Thanks
Rick Lipkin