thisform.timer1.Enabled= .T.
thisform.ole1.value=0 &&ole1是进度条
*语文
()
()
()
*数学
()
()
()
*英语
()
()
()
*政治
()
()
()
*历史
()
()
()
*地理
()
()
()
*物理
()
()
()
*化学
()
()
()
*生物
()
()
()
*两项总分/同类平均分/基本分/得分
()
()
()
*******以上30个按钮分别用于计算各个学科的平均分,优生人数等一系列统计工作,相当耗时,我校共5000名学生,计算完毕要40秒表左右
thisform.timer1.Enabled= .F.
MESSAGEBOX("计算完毕",0+48,"")

我的想法是:一边让程序运行1-30个按钮,同时一边在表单上用一个标签即时显示时间,要求以秒为单位进行显示.(注意是即时显示)

各位看我程序哈!
thisform.timer1.Enabled= .T.
……（1）
thisform.timer1.Enabled= .F.

其中timer1的timer事件为thisform.label3.Caption=STR(SECONDS()－time_old)
    timer1的intervl属性为1000

现在的问题是程序在执行(1)处这段耗时操作时，timer1的timer的事件根本没有动作，只是在(1)处结束后才显示一个时间，不能实时显示。
我想肯定要用多线程才能实现，创建两个线程，一个线程运行（1）处的耗时操作，一个线程运行timer的timer事件，哪就能实时显示了。
但我不会，好像VB能行。也许VFP根本就不能解决这样的问题。
望各位帮我

vfp肯定不能实现多线程

经测试，VFP的定时器确实无法在运行程序时起作用。

你是说仅一次循环，就需40秒吗？还是整个循环结束才 40秒？
thisform.timer1.Enabled= .T.
DO WHILE 条件
    ()
    。。。。
    ()
ENDDO
thisform.timer1.Enabled= .F.

如果一次循环很快，远远小于1秒（如循环体空转），timer 就有可能没反应。如果是这样，就不需要 timer 了,
把 timer 事件内的刷新代码，放到这循体内，也是同样刷新吧。


[ 本帖最后由 kiff 于 2013-3-23 10:14 编辑 ]

不应该吧

表单设置不科学，以及代码可能有问题
上传表单

不知道楼主的程序要怎样、想干嘛，既然坚持说总不行，那就当不行好了，琢磨一下多线程，用四核，够高深。

才5000条记录做这么简单的统计工作要耗时40秒，真服了你。