10使用一对多表单向导选择KSB表和KSCJB表生成一个名为TWO的表单

2Р use testР select 1Р use kscjbР do while .not.eof()Р select testР locate for 考生号=kscjb->考生号Р if not found() thenР append blankР replace 考生号 with kscjb->考生号Р endifР do caseР case kscjb->考试科目="101"Р replace 政治成绩 with kscjb->成绩Р case kscjb->考试科目="102"Р replace 外语成绩 with kscjb->成绩Р case kscjb->考试科目="103"Р replace 高数成绩 with kscjb->成绩Р case kscjb->考试科目="104"Р replace 专业课成绩 with kscjb->成绩Р endcaseР select kscjbР skipР enddoР close allР update test set 总成绩=政治成绩+外语成绩+高数成绩+专业课成绩Р SELECT Ksb.考生号, Ksb.姓名, Ksb.性别, Ksb.单位, Test.政治成绩,;Р Test.外语成绩, Test.高数成绩, Test.专业课成绩, Test.总成绩;Р FROM ksb ,test ;Р WHERE Test.总成绩>= 330 AND Ksb.考生号= Test.考生号;Р ORDER BY Test.总成绩 DESC INTO TABLE fourРmand1.Click”对话框。Р5.左键双击“退出”命令按钮,mand2.Click”对话框中输入 thisform.release mand2.Click”对话框。Р6.左键单击“保存”,左键单击!运行。左键单击“录取”,左键单击“退出”。