如果楼主连这么简单的逻辑判断都处理不了，就想编写程序，我觉得还是静下心来先补补基础课吧。否则，你的问题是回答不完的。

老师，文字表述不大好理解，所以我用图表来说明会更好一些。
即是这样的结果：

情况1
评论1　　正常
评论2　　正常
评论3　　正常
评论4　　正常
总评论　　正常

情况2
评论1　　肥胖
评论2　　超重
评论3　　生长慢
评论4　　正常
总评论　　评论1　　肥胖　评论2　　超重　评论3　　生长慢　评论4　　正常　需进一步矫治检查

老师，我是初学者，所以，有搞不懂的问题，还烦请老师赐教！只有在老师的讲解中才能更好的理解。

If 评价1=="正常".and.评价2=="正常".and.评价3=="正常".and.评价4=="正常"
     MESSAGEBOX("总评价正常")
ELSE
     MESSAGEBOX("总评价：评价1="+评价1+"，评价2="+评价2+"，评价3="+评价3+"，评价4="+评价4+", 需进一步矫治检查。")   
ENDIF

[ 本帖最后由 qjbzjp 于 2014-5-11 09:12 编辑 ]

老师，谢谢您！我试了在表单当前页可以。但能否让整个cc.dbf中所有人的都一点击按钮就能实现表内项目以上的功能？

在表单中建立一个COMMAND按键，将程序考入按键属性中，即可

老师，这样只在命令按钮上显示第一条记录的内容，我的意思是让CC。DBF中内所有条的记录都在表内实现那个功能，我试了新添加一条记录后，点击命令按钮后，表内没有结果？

把你的表单传上来，否则纸上谈兵，解决不了所有的问题。

点命令按钮前先刷新表单试试：thisform.Refresh

老师，我上传了！