Run this code from the SAMPLE FiveWin folder and view the result in the checkres.txt file.
Code: Select all
#include "fivewin.ch"
#include 'xbrowse.ch'
Function Main()
local oWnd, oDbCustomer, oBrw
ferase("checkres.txt")
use customer
DATABASE oDbCustomer
define window oWnd
@ 0,0 XBROWSE oBrw OF oWnd ;
FIELDS 'FIRST', 'LAST', 'STREET' OBJECT oDbCustomer;
LINES CELL FASTEDIT NOBORDER
oBrw:CreateFromCode()
oWnd:oClient := oBrw
oBrw:Adjust()
activate window oWnd
checkRes()
return nil
Regards,
RodMG