zwh=1 kch=1 Scan *if xcxm='A' Replace 座号 With zwh Replace 场次 With allt(xcxm)+Padl(kch,3,[0]) zwh=zwh+1 If zwh>10 zwh=1 kch=kch+1 Endif *ELSE xcxm='B' * Replace 座号 With zwh * Replace 场次 With 'A'+Padl(kch,3,[0]) *zwh=zwh+1 * If zwh>10 * zwh=1 * kch=kch+1 *Endif *ENDIF Endscan