回 帖 发 新 帖 刷新版面

主题:关于创建临时表的问题

[color=008080]代码运行后出现“找不到temp.dbf”
怎么解决?
临时表是需要手动创建的吗?
谢谢!
另:为什么这个网站很多链接已损坏,以前发过的贴也打不开了。


代码如下:
*在记录中查找符合查找条件的记录
close all

*创建临时表
creat cursor temp (A n(2),B c(10),C c(8),D c(8))
 
*确定查询长度
_length_st=alltrim(thisform.text1.value)
_length_en=alltrim(thisform.text2.value)
*清理数据
use temp.dbf
delete all
pack
append from rabiesinfo.dbf
use 
if file("show.dbf")=.t.
delete file show.dbf
endif
*查询符合条件的记录
select * from temp where alltrim(序列长度)>=alltrim(_length_st) .and. alltrim(序列长度)<=alltrim(_length_en) into table show
close all
*显示记录
do form rbinfoserout[/color]

回复列表 (共2个回复)

沙发

creat cursor temp (A n(2),B c(10),C c(8),D c(8))

实际上这个表的名字并不叫temp.dbf
而是一个不重复的临时名字,比如0001bex0008.tmp

所以use temp.dbf,一定是有问题的。
正确的方法是
select temp

板凳

......
use temp.dbf
delete all
pack
append from rabiesinfo.dbf
use
......
已经将temp关闭了

我来回复

您尚未登录,请登录后再回复。点此登录或注册