我写了一个进度条程序，首先打开窗口：
在窗口的OPEN事件中写下：time（1）
然后在timer事件中写下：
DECLARE ....
OPEN.....
FETCH....
DO WHILE
数据库操作。。。。。
update 。。。
hpb_1.StepIt( )
FETCH
LOOP
由于数据库目前的数据较少，执行很快，我的疑问是：
如果time事件中的程序没有执行完成，会执行下一个time事件吗？
------解决方案--------------------
感觉不会执行下一个Timer事件，建议楼主不要在Timer事件里写太复杂的代码
------解决方案--------------------
同一窗口只有一个定时器。
要定义多个定时器，要用timing 对象。。。
------解决方案--------------------
不会
我timer(1)
下面代码执行要5秒，listbox里的值是：
10:59:40 -- 10:59：45
10:59:45 -- 10:59：50
10:59:50 -- 10:59：55
----说明是一次循环结束，才开始新循环！因为，如果会重开timer，值应该是：
10:59:40 -- 10:59：45
10:59:41 -- 10:59：46
10:59:42 -- 10:59：47
string ls_1,ls_2
time ldt_1
long ii,j
ldt_1 = now()
for j = 1 to 5
for ii = 1 to 5000
ls_2 = ls_2 + '1111111111'
next
ls_1 = ls_1 + ls_2
ls_2 = ''
next
lb_1.additem(string(ldt_1) + "," + string(now()))