在当前目录下有一个相片文件夹photo,有一个bmk.dbf，相片文件中的相片名与bmk.dbf中ksh字段同名,如何把bmk.dbf中没有相片的记录行生成一个新的数据表nophoto.dbf ,谢谢帮助解决。

在线等各位帮助俺下

CLOSE DATABASES
USE BMK IN 0 ALIAS BMK
=ADIR(XP,SYS(5)+SYS(2003)+[\PHOTO\*.JPG])
FOR I=1 TO ALEN(XP,1)
    SCAN FOR ALLTRIM(KSH)==GETWORDNUM(XP(I,1),1,[.])
       DELETE
    ENDSCAN
ENDFOR
SELECT * FROM BMK WHERE  NOT DELETED() INTO DBF NOPHOTO
BROWSE
RECALL ALL IN BMK
USE IN SELECT([BMK])

[ 本帖最后由 sdta 于 2013-1-10 23:33 编辑 ]

学习了，谢谢楼上的。呵呵~

lnCount = Adir(lcPic,Sys(5) + Sys(2003) + '\photo\*.jpg','A')
If lnCount < 1
    Return
Endif

Create Cursor temp (nm c(20))
For i = 1 To lnCount
    Insert Into temp (nm) Values (Juststem(lcPic(i,1)))
Next

Use bmk In 0
Select * From bmk Where bmk.ksh Not in (Select nm From temp) Into Cursor tmp
Use In bmk
Select tmp
Brow

遍历不如sql查询来的快

收到的鲜花

• tlliqi 于 2013-01-11 11:44 送鲜花  10朵   附言：很不错哦，谢谢
• hu9jj 于 2013-01-11 14:20 送鲜花  20朵   附言：我很赞同

很不错哦，谢谢