before run ok and now not run
I wish print a field using fieldWBlock
- Code: Select all Expand view
#include "fivewin.ch"
REQUEST DBFCDX
Function test()
local acampi := {"FIRST" ,;
"LAST" ,;
"STREET" ,;
"CITY" ,;
"STATE" ,;
"ZIP" ,;
"HIREDATE",;
"MARRIED" ,;
"AGE" ,;
"SALARY" ,;
"NOTES" }
local nFor:=1// first
local oPrn
local oFont
local oBold
USE CUSTOMER NEW alias cust SHARED VIA "DBFCDX"
PRINT oPrn PREVIEW
DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-14 OF oPrn
DEFINE FONT oBold NAME "VERDANA" SIZE 0,-25 BOLD OF oPrn
PAGE
@ 10, 10 PRINT TO oPrn TEXT bCampo( aCampi, nFor,1 ) ;
SIZE 100, 100 CM ALIGN "T" FONT oFont
ENDPAGE
ENDPRINT
RELEASE FONT oFont, oBold
return nil
function bCampo( aCampi, nFor,nArea )
return (fieldWBlock(aCampi[nFor],nArea ))
I tried also with fieldWBlock( "FIRST",1 )