现有多个表，有的是有记录，有的没有记录，在不打开表时如何删除哪些没有记录的表 - VFP论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 数据库技术 → 『 VFP论坛』 → 现有多个表，有的是有记录，有的没有记录，在不打开表时如何删除哪些没有记录的表

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 2616 人关注过本帖

标题：现有多个表，有的是有记录，有的没有记录，在不打开表时如何删除哪些没有记 ...

取消只看楼主加入收藏

sylknb

等　级：贵宾
威　望：14
帖　子：1547
专家分：184
注　册：2006-6-3
结帖率：79.38%

楼主

已结贴√ 问题点数：20 回复次数：5

现有多个表，有的是有记录，有的没有记录，在不打开表时如何删除哪些没有记录的表

delete file 文件名，用于删除表的命令，它后面能否加条件？
现有多个表，有的是有记录，有的没有记录，当不开表时如何删除哪些没有记录的表，也就是说在delete file 文件名后面能否加条件？

搜索更多相关主题的帖子: 记录　如何　 file　

2015-12-11 13:21

sylknb

等　级：贵宾
威　望：14
帖　子：1547
专家分：184
注　册：2006-6-3

第 2 楼

得分:0

我的意思是把表删除，不是表中的记录。
程序运行中产生了没有记录的表，我想批量删除哪些没有记录的表，保留有记录的表，不是表中的记录。
用DELETE FILE 命令是从磁盘上删除哪些没有记录的文件。

[此贴子已经被作者于2015-12-11 14:19编辑过]

2015-12-11 14:16

sylknb

等　级：贵宾
威　望：14
帖　子：1547
专家分：184
注　册：2006-6-3

第 3 楼

得分:0

以下是引用wzxc在2015-12-11 14:44:53的发言：

用ADIR( ) 函数将dbf表文件信息存放到数组中，
gnDbfnumber = ADIR(gatables, '*.DBf')  && 创建一个数组
FOR nCount = 1 TO gnDbfnumber  && 遍历表
SELECT  0
use  &gatables(nCount,1)   &&宏替换用数组我没试过，如不行换一种方式。
  if reccount（）=0
   use
   DELETE FILE &gatables(nCount,1) &&宏替换用数组我没试过，如不行换一种方式。
  else
   use
  endif
ENDFOR
大体这个思路。如有语法错误，请自己调试（我要走了，没时间调试了)。

基本成功，如果删除同名的DBF同时删除同名的XLS哪要怎么搞?请指教!

2015-12-11 15:08

sylknb

等　级：贵宾
威　望：14
帖　子：1547
专家分：184
注　册：2006-6-3

第 4 楼

得分:0

以下是引用kinvanhon在2015-12-11 18:21:33的发言：

使用forceext()函数，什么作用怎么用看帮助吧

用了此forceext()函数介决了问题既可删除.dbf又可删除同名的.xls,谢谢!
用ADIR( ) 函数将dbf表文件信息存放到数组中，
gnDbfnumber = ADIR(gatables, '*.DBf')  && 创建一个数组
FOR nCount = 1 TO gnDbfnumber  && 遍历表
SELECT  0
use  &gatables(nCount,1)   &&宏替换用数组我没试过，如不行换一种方式。
  if reccount（）=0
   use
   DELETE FILE &gatables(nCount,1) &&删除.dbf
  DELETE file FORCEEXT('&gatables(nCount,1)','.xls')&&删除同名的.xls
else
   use
  endif
ENDFOR

[此贴子已经被作者于2015-12-11 21:16编辑过]

2015-12-11 21:13