收录日期:2019/10/22 14:26:58 时间:2016/05/06 18:20:39 标签:基础类
请详细告知READ EVENTS用途? 
--------------------------------------------------------------------------------
sander 于 2000-07-16 上午 11:10:36 发表:
请详细告知READ EVENTS用途?
set talk off
set safety off
mypath=left(sys(16),rat("\",sys(16)))
set defa to (mypath)
PUBLIC MYPD
MYPD=0
DO FORM 提示信息.scx
Read events
***************
问题一、当我加了READ EVENTS 后,就象荡机一样,而我去掉READ EVENTS 则可运行?我对READ EVENTS用途还是不清楚?请高手指点!!
即GETDIR()显示窗口出现(没有READ EVENTS)
***************************

if mypd=1
jlno=0
mlpath=getdir()
cd (mlpath)
*?curdir('d') &&返回当前目录
numdir=adir(arraydir,'*.*','D') &&ADIR(ARRAYDIR)仅获取运行程序的目录
?numdir
if numdir<>0
myml=mypath+"\目录.dbf"
use &myml
zap
for ncount=1 to numdir
append blank

*删掉'.'字符
FOR N=1 TO LEN(ALLTRIM(ARRAYDIR(NCOUNT,5)))
IF SUBSTR(ALLTRIM(ARRAYDIR(NCOUNT,5)),N,1)<>'.'
EXIT
ENDIF
ENDFOR

repl 文件名 with arraydir(ncount,1),文件大小 with arraydir(ncount,2),文件日期 with arraydir(ncount,3),;
     文件时间 with arraydir(ncount,4),文件属性 with SUBSTR(ALLTRIM(arraydir(ncount,5)),N,1)
*gather from arraydir
endfor
endif
dele for '.'=substr(文件名,1,1)
pack

repl all 目录 with curdir() for left(curdir(),1)<>'\'
repl all 目录 with sys(5)+curdir() for left(curdir(),1)='\'
use
sele 1
myzwj=mypath+"\总文件目录.dbf"
use &myzwj
zap
appen from &myml for upper(文件属性)<>'D'
sele 2
myzml=mypath+"\总目录目录.dbf"
use &myzml
zap
appen from &myml for upper(文件属性)='D'
loca for upper(文件属性)='D'
repl ni with '1'
do while .not.eof()

*下级目录
cd (alltrim(目录)+alltrim(文件名)+'\')
*?curdir('d') &&返回当前目录
numdir=adir(arraydir,'*.*','D') &&ADIR(ARRAYDIR)仅获取运行程序的目录
if numdir<>0
sele 3
use &myml
zap
for ncount=1 to numdir
append blank

*删掉'.'字符
FOR N=1 TO LEN(ALLTRIM(ARRAYDIR(NCOUNT,5)))
IF SUBSTR(ALLTRIM(ARRAYDIR(NCOUNT,5)),N,1)<>'.'
EXIT
ENDIF
ENDFOR

repl 文件名 with arraydir(ncount,1),文件大小 with arraydir(ncount,2),文件日期 with arraydir(ncount,3),;
     文件时间 with arraydir(ncount,4),文件属性 with SUBSTR(ALLTRIM(arraydir(ncount,5)),N,1)
*gather from arraydir

repl all 目录 with curdir() for left(curdir(),1)<>'\'
repl all 目录 with sys(5)+curdir() for left(curdir(),1)='\'

endfor
endif
dele for '.'=substr(文件名,1,1)
pack
use
sele 1
appen from &myml for upper(文件属性)<>'D'

sele 2
use &myzml
appen from &myml for upper(文件属性)='D'
loca for upper(文件属性)='D'.and.ni<>'1'
repl ni with '1'
enddo
*mlpath2='d:\目录\'+substr(mlpath,rat("\",mlpath)+1,len(alltrim(mlpath))-rat("\",mlpath))

close data all
use &myzwj
go top
do while .not.eof()
myfile=alltrim(目录)+alltrim(文件名)

run/n2 Attrib.exe &myfile -r
skip
enddo
use &myzml
go top
do while .not.eof()
myfile=alltrim(目录)+alltrim(文件名)
run/n2 Attrib.exe &myfile -r
skip
enddo
*export to d:\目录\总文件目录 fields 文件名 type xls
close data all
endif
return
试试将READ EVENTS语句放在主程序的最后一行.

简单问题5 简单问题6 我想在页面中插入另一页面,但。。。 JDK1.3哪有下载 怎么办? 简单问题8 如何更改地址栏内容?现在打开的是数据库中的Word文件,可是另存为时是WebFrom1.doc,如何才能是此文件名呢?有FileName字段。 急!急!急!急!急!急!急!急!急! 告诉大家一个好消息“.net四大名著”的中文版马上将出版了 请问? 如何捕获ado connection的异常?如何将一个数组插到sql中?如何建立数据库的全局连接,全局变量设在哪里? 求NetVampire Pro 4.0正式版注册码!!! 一个编程的题目,高分求解! 关于网卡驱动程序的安装 解决不料 晚上就要通宵了 我好累呀 一定要帮我呀 , 组建网络 服务器是用nt4.06 dhcp分配ip,为什么服务器可以看到工作站的机子,但是看 如何实现批量打印 import 导入的是.class还是.java 如何在ado数据环境dataevironment中打开有密码的access表? 大连的朋友说说,大连的程序员待遇怎么样啊? 大家用vc都是c加 sdk还是c++加mfc MEL 关于视图的删除? 绝对高分!-----如何使用VB编一个像winXP那样窗口的界面? 在C#中这个菜单问题一定要用api解决吗? 一个简单的jsp查询数据库问题!有谁能帮我解决我就连续给他300分! 基础的问题 怎样编程使机器运行缓慢 一个简单的jsp查询数据库问题!有谁能帮我解决我就连续给他300分!(接上贴) 一个初学者的问题:书!!!! 这个dim语句中的冒号代表什么意思?