vf导出某个表中的某些字段prg

&&假设DBF表名为USER.DBF，导出的文本名为USER1.TXT，要导出的的字段为FL1，FL2，FL3  
   
  USE   USER.dbf  
  COPY   TO   USER1.txt   DELIMITED   WITH   BLANK   FOR   RECNO()=0  
  txt1='USER1.txt'  
  f=FOPEN(txt1,2)  
  SCAN  
  sqldetail=ALLTRIM(FL1)+","+ALLTRIM(FL2)+","+ALLTRIM(FL3)  
  a=fputs(f,sqldetail)  
  ENDSCAN    
  a=fclose(f)  
  CLOSE   DATABASES