程序代码:
Create Cursor T (评价1 C(4),评价2 C(4),评价3 C(4),评价4 C(4),总评价 C(100))
Insert Into T Values ("正常","超重","肥胖","正常","")
Insert Into T Values ("正常","正常","正常","正常","")
Insert Into T Values ("正常","肥胖","正常","超重","")
Insert Into T Values ("超重","正常","正常","正常","")
Insert Into T Values ("正常","正常","正常","正常","")
Replace All 总评价 With "评价1="+Alltrim(评价1)+",评价2="+Alltrim(评价2);
+",评价3="+Alltrim(评价3)+",评价4="+Alltrim(评价4)+",总评价:";
+Iif(Alltrim(评价1)="正常" And Alltrim(评价2)="正常" And Alltrim(评价3)="正常" ;
And Alltrim(评价4)="正常","正常","需进一步矫治检查")
Browse
结果:
图片附件: 游客没有浏览图片的权限,请
登录 或
注册