如何做一个进度条?
VFP9.0 + SQL

如何做一个进度条?

比如说:用户登录时,复制文件时,都需要一个进度条的.

[解决办法]
菜单
工具-----选项-----控件----activex控件---钩选 microsoft progressbar control,version 6.0
----控件工具条----activex----拖到表单上---

nRec=reccount()
thisform.pr1.max=nRec
scan
------------
nRecno=recno()
thisform.pr1.value=nRecno
endscan

[解决办法]
去掉中间变量

thisform.pr1.max=recc('表名')
scan
thisform.pr1.value=recn('表名')
endscan