ls.prg

来自「银行代发工资系统」· PRG 代码 · 共 15 行

use 200071  
    lnFields = AFIELDS(laFields)
  public    js
  js=0
FOR lnI = lnFields TO 1 STEP -1
*    lnI=1
   * do while lnI<=lnFields
	IF INLIST(laFields(lnI, 1), "SFJE","RYXM","XYKBH")=.T.
    js=js+1
*		ADEL(laFields, lnI)
*		DIMENSION laFields(alen(laFields,1)-1, alen(laFields, 2))
	ENDIF 
 *  lnI=lnI+1
*   enddo
next lni