else
if m=n1
@row1+1,col1 say "┼"+replicate("-",b(m))+"┤"
else
@row1+1,col1 say "┼"+replicate("-",b(m))
endif
endif
col1=col1+b(m)
m=m+1
enddo
endif
ENDIF
row1=row1+2
r1=r1+1
enddo && 每页显示20个记录到此
enddo
set print off
set device to screen
set talk on
return
以上程序将一个数据库中的所有记录以行为单位打印出来，编制环境是Visual Foxpro 6.0，如果一个数据库字段比较少，希望一行打印二个以上的记录，稍作修改即可。需要提醒读者的是，由于考虑到篇幅，本程序只设计了包含数字型和字符型的数据库，对有其它类型的数据库，稍作修改就行了；如果用户希望一页的记录不是20，只需要修改if r1=20这句中r1的值。笔者已经编制了这类程序，可以向读者提供。
