vfp通用型字段gen内容2导出

【2】将VFP的DBF导出到WORD（可以打印任意字段内容）  http://www.360doc.com/content/13/0802/09/1865135_304198223.shtml

字段gen：为通用型字段

2.1）vfp如何通过ole 将通用字段内容导入到word - VFP论坛 - 编程论坛  https://bbs.bccn.net/thread-63199-1-1.html

将表打开/brow/双击待编辑.通用型字段/打开工具栏.编辑(E)菜单，&& vfp9.0

2.2.1）文档对象/打开/另存为/，&&就可导出

2.1.2）选择插入对象，再选择需要插入的文件即可。

*******

[8]visual foxpro VFP 如何才能把DBF表中的通用型字段里的图片导出到EXCEL表中_百度知道  https://zhidao.baidu.com/question/161338147.html

【7】在VFP中如何实现通用字段的批量导入与导出？_百度知道 -导出excel
 https://zhidao.baidu.com/question/203944724.html

【6】刚学vfp,疑惑::如何导出通用字段的内容？比如说存的是word文档。查了一天msdn了，都没找到答案，郁闷！-CSDN社区  https://bbs.csdn.net/topics/80175977

BBS:有些讨论

【5】【word】 在VFP中将通用字段值与WORD文档进行数据交换的实现方法 - 豆丁网  https://www.docin.com/p-716355739.html?docfrom=rrela

刚学vfp,疑惑::如何导出通用字段的内容？比如说存的是word文档。查了一天msdn了，都没找到答案，郁闷！-CSDN社区  https://bbs.csdn.net/topics/80175977

【4】利用Visual Foxpro的低级函数导出通用型字段数据 - 豆丁网  https://www.docin.com/p-1705954354.html

通用型字段中存储文件的导出方法 - 道客巴巴  http://www.doc88.com/p-971395809335.html

[精品]VFP中通用字段内容的转换 - 道客巴巴  https://www.doc88.com/p-9773330074986.html

【3】刚学vfp,疑惑::如何导出通用字段的内容？比如说存的是word文档。查了一天msdn了，都没找到答案，郁闷！-CSDN社区  https://bbs.csdn.net/topics/80175977

通用型(G)字段里的文件还原
* 测试代码
* ---------------------------------------------------------
CLEAR
SET TALK OFF
SET SAFETY OFF
IF !USED([TBac023])
USE C:\Temp\Abc.DBF IN 0 ALIAS TAbc
ENDIF
SELECT TAbc
SCAN
lcFileName = JUSTFNAME(ALLTRIM(文件名称))
? lcFileName, GenToFile( [文件内容], [C:\Temp\Files\]+lcFileName )
ENDSCAN
USE IN TAbc
RETURN

* ---------------------------------------------------------
* 函数: 将当前表的当前记录的某通用型(G)字段里的文件还原
* 参数: tcGenField 通用型字段名
* tcFileName 还原的文件名
* 设计: 红雨、梦幻幻影
* ---------------------------------------------------------
FUNCTION GenToFile( tcGenField, tcFileName )
LOCAL IsOK, lcAlias, lnRecn
IsOK = .F.
lcAlias = ALIAS()
IF !EMPTY(lcAlias) ;
AND TYPE([tcGenField])=[C] AND TYPE([tcFileName])=[C] ;
AND !EMPTY(tcGenField) AND !EMPTY(tcFileName) ;
AND TYPE(tcGenField)=[G] AND TRANSFORM(&tcGenField.)=[Gen]
lnRecn = RECNO()
lcTemp = ADDBS(SYS(2023)) + [T]+SYS(2015)
COPY TO (lcTemp) FIELDS (tcGenField) FOR RECNO()=lnRecn
IF FILE(lcTemp+[.dbf]) AND FILE(lcTemp+[.fpt])
DELETE FILE (lcTemp+[.dbf])
IF FILE(tcFileName)
DELETE FILE (tcFileName)
ENDIF
RENAME (lcTemp+[.fpt]) TO (tcFileName)
IsOK = FILE(tcFileName)
ENDIF
SELECT (lcAlias)
GO lnRecn
ENDIF
RETURN IsOK
ENDFUNC

****

【2】将VFP的DBF导出到WORD（可以打印任意字段内容） - 百度文库  https://wenku.baidu.com/view/9714ea378d9951e79b89680203d8ce2f006665f8.html?_wkts_=1686106380576&bdQuery=vfp%E5%B0%86%E9%80%9A%E7%94%A8%E5%9E%8B%E5%AD%97%E6%AE%B5%E7%9A%84word%E6%96%87%E4%BB%B6%E5%AF%BC%E5%87%BA

如何将VFP工作表导出到WORD，并进行编辑 - 百度文库  https://wenku.baidu.com/view/75ee63973286bceb19e8b8f67c1cfad6195fe93c.html?_wkts_=1686106613251&bdQuery=vfp%E5%B0%86%E9%80%9A%E7%94%A8%E5%9E%8B%E5%AD%97%E6%AE%B5%E7%9A%84word%E6%96%87%E4%BB%B6%E5%AF%BC%E5%87%BA

【】