错误写法:rowididenti循环至“”时如果不跳出,先赋值会赋值 “”的下一位从头开始循环,导致死循环
for{ //遍历判断学号是否重复 s RowIdIdenti=$o(^DHCSTUDENTHYX(RowIdIdenti)) //取rowid值 q:RowIdIdenti="" //rowid为空跳出 s StNoTemp=$p(^DHCSTUDENTHYX(RowIdIdenti),"^",1) //取学号值 if (StNoTemp=StNo){ s Count=Count+1 } w StNoTemp,! }