00view.prg

我自己编写的用VFP的简单进销存程序供大家参考

FOR LNNUMBER=0 TO 255
  SELE (LNNUMBER)
  IF USED()
    =MESSAGEBOX('SELE：'+ALLT(STR(LNNUMBER))+' ALIAS：'+ALIAS()+' DBF：'+DBF(),64,'信息 ')
  ENDIF
ENDFOR
RETURN