| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 483 人关注过本帖
标题:VFP中遇到dbf包含备注型字段,导入导出时如何一次性操作,好像默认不处理备 ...
只看楼主 加入收藏
shschy
Rank: 2
等 级:论坛游民
帖 子:67
专家分:10
注 册:2022-3-13
结帖率:38.46%
收藏
已结贴  问题点数:20 回复次数:4 
VFP中遇到dbf包含备注型字段,导入导出时如何一次性操作,好像默认不处理备注型字段
请问VFP中遇到dbf包含备注型字段,导入导出时如何一次性操作,好像默认不处理备注型字段。
我现在的处理方法是
1)导入前先建立临时表,将备注型字段改为字符型字段,长度长点,append from *.csv
    然后再从临时表中导入到含备注型字段的表中
2)导出时利用left()函数将备注型字段转换为字符型字段

请问还有其它简单处理方法吗?
搜索更多相关主题的帖子: 导出 导入 字段 处理 备注型 
2023-07-07 12:49
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:451
帖 子:10560
专家分:42996
注 册:2014-5-20
收藏
得分:7 
备注型改为字符型,有可能数据丢失
2023-07-07 13:10
shschy
Rank: 2
等 级:论坛游民
帖 子:67
专家分:10
注 册:2022-3-13
收藏
得分:0 
谢谢提醒,如果没有一句代码可以执行完成的,就先用中转文件来操作。
2023-07-07 15:08
igaoyuan
Rank: 2
等 级:论坛游民
帖 子:101
专家分:98
注 册:2022-12-19
收藏
得分:7 
我是这样操作的,设两个命令按钮,分别为“导入”“导出”
导入
程序代码:
 filename=PUTFILE('导出文件名称',alias()+'_','dbf')

 IF !EMPTY(ALLTRIM(FILTER())) 
   COPY TO (filename) FOR .t.

 ELSE
   COPY TO (filename) record RECNO()

 ENDIF  


导出
程序代码:
   root=LOCFILE('','dbf','数据库文件')
   root='"'+root+'"'
   IF FILE(&root) .and. atc(alias(),&root)>0        &&判断文件名是否相同
      APPEND FROM &root
      _SCREEN.ACTIVEFORM.refresh
    ELSE
        =MESSAGEBOX([导入文件名与数据库名称不符],0+48,[导入错误!])
   ENDIF
2023-07-08 17:25
shizi0
Rank: 5Rank: 5
等 级:职业侠客
威 望:4
帖 子:121
专家分:324
注 册:2012-10-2
收藏
得分:7 
导入比较简单:
将xls转换成为CSV,直接Append From (CSVFile) type CSV

导出:
1、M字段先用int字段临时占位
字段列表=连接遍历的字段名,若遇到M型,将其替换成【0 as 临时字段,】
Select (字段列表) From 原表 Into Cursor Grd2xls_tmp
字段列表=strtran(字段列表,‘0 as ','')
copy to (xls文件) Fields (字段列表) Type Xl5
2、Excel.application修改备注字段内容
遍历原表字段(列号),若遇到M型,scan,逐条记录写入备注字段内容:oSheet.Cells(行号,列号).VALUE=备注字段内容

2023-07-12 10:48
快速回复:VFP中遇到dbf包含备注型字段,导入导出时如何一次性操作,好像默认不处 ...
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.011768 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved