Página 1 de 1

Create Physical DBF files

Publicado: Jue Oct 12, 2006 10:20 am
por david fung
I tried to create a physical DBF file with the following but failed !
Any comment ?
METHOD Button1Click( oSender ) CLASS Tform1
Local afieldlist := { {"KEYFLD1", "C", 10, 0}, ;
{"KEYFLD2", "D", 8, 0}, ;
{"FLD3", "C", 20, 0} }
Local cFile := "MyClient.DBF", lDbf
WITH OBJECT lDBF := TDbfDataSet():Create(Self, ::oDataSource, cFile)
:afields := afieldlist
END WITH
RETURN Nil
Thanks.
David