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

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

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

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

先谢了

单击“查询没有照片的学生信息”会显示如下操作

现在想实现当所有学生都有照片的时候，单击“查询没有照片的学生信息”会提示为“所有学生都有照片”