FoxPro Tutorial & Source Code
* Author : Team of Pelagian Softwares
* Date : 23/05/2008
* Source : col2.prg
* Description : Program to print record widthwise on screen
set talk off
use student
goto top
numCol=2
curCol=1
clea
@1,1 say ""
FOR i=1 to numCol
@row(), ((len(stname)*(i-1)))+2 say REPL("-",len(stname))
NEXT
@row()+1,1 say ""
FOR i=1 to numCol
@row(), ((len(stname)*(i-1)))+2 say "Name"
NEXT
@row()+1,1 say ""
FOR i=1 to numCol
@row(), ((len(stname)*(i-1)))+2 say REPL("-",len(stname))
NEXT
do whil !EOF()
if curCol=1
@row()+1, 0 say ""
EndIf
@row(), (len(stname)*(curCol-1))+2 say stname
curCol=IIF(curCol=numCol,1,curCol+1)
skip
EndD
FOR i=1 to numCol
@row(), ((len(stname)*(i-1)))+2 say REPL("-",len(stname))
NEXT
clos data
Also download:
database/student.dbf
|
|
