|
@@ -1774,8 +1774,9 @@ begin
|
|
|
vCS := TCheckStatus(StrToInt(AAr[i, 5]) - 1);
|
|
|
if vCS = csChecking then
|
|
|
begin
|
|
|
- if AAr[i - 1, 7] = '1' then // 前一个人
|
|
|
+ if (i > 0) and (AAr[i - 1, 7] = '1') then // 前一个人且不是第一个人
|
|
|
AEnd := i;
|
|
|
+
|
|
|
Break;
|
|
|
end
|
|
|
else if vCS = csNotPass then
|