自己写了一个根据身份证号判断在校的学生是否有照片，将没有照片的学生信息打印出来。我想问的是如果每一个学生都有照片，在哪个位置加一个messagebox("每个学生都有照片！")

use HFFile EXCLUSIVE
 delete all
 pack   
 Select HFFile  
thisform.refresh
If Adir(sfzh,"\新生报名系统\picture\*.jpg")>0
    Select HFFile
    MESSAGEBOX("查询没有照片的学生信息？",4+32+256,"系统信息")
    Append From Array sfzh
ELSE
   MESSAGEBOX("该文件是空的！",64,"系统信息")  
Endif
select * from stu Where not exists(select * from hffile WHERE hffile.sfzh=stu.sfzh) into table zdz
sele sfzh,xm,xb,bj,bysj,lxr,bz from zdz order by bj asc,bz asc into table zz
thisform.grid1.RecordSource="zz"
thisform.grid1.column1.Width=162
thisform.grid1.column2.Width=75
thisform.grid1.column3.Width=75
thisform.grid1.column4.Width=242
thisform.grid1.column5.Width=75
thisform.grid1.column6.Width=75
thisform.grid1.column1.header1.Caption='身份证'
thisform.grid1.column2.header1.Caption='姓名'
thisform.grid1.column3.header1.Caption='性别'
thisform.grid1.column4.header1.Caption='班级'
thisform.grid1.column5.header1.Caption='联系人'
thisform.grid1.column6.header1.Caption='备注'


thisform.grid1.refresh()

在最后“加一个messagebox("每个学生都有照片！") ”

是不是应该改为

从楼主帖出的代码来看，没看到有查询学生照片的过程，如果没有这个查询过程，messagebox("每个学生都有照片！")，此处也就不存在了。没有前因，也就没有后果。
仅供参考

不是这个意思，我的意思是要是判断出无照片就把没照片的学生信息打印出来，如果数据库里学生照片都有就messagebox("每个学生都有照片！")

你判断的过程在什么地方

If Adir(sfzh,"\新生报名系统\picture\*.jpg")>0   && 判断身份证号
    Select HFFile
    MESSAGEBOX("查询没有照片的学生信息？",4+32+256,"系统信息")
    Append From Array sfzh
ELSE
   MESSAGEBOX("该文件夹不存在JPG文件！",64,"系统信息")
   RETURN  endif

楼主知道Adir()的返回结果是什么吗，如果不知道，可以看看VFP的帮助文件中的ADIR()的内容。

说实在的不太懂，这个是朋友帮着做的

要想知道每行代码所表达的意思，就要弄明白每行代码中用到的命令、函数的作用

能帮帮忙吗，我现在真的实现这个功能，谢谢！