一段代码运行完成后鼠标箭头不见了怎么办？

[everyday1212]

通过代码对200多台电脑设备做ping的网络测试，程序运行结束后鼠标箭头在这个程序界面消失了。哪位老师知道怎么解决吗？

[everyday1212]

补充：不是每次都这样。程序运行完成后如果过一段时间再去点开这个程序经常会出现这种情况，如果及时让程序重获前端显示就少有这种情况。

[十豆三]

帖出你的代码或异步调用执行你的代码 另外请参考：http://blog.csdn.net/dkfdtf/article/details/2773229

[everyday1212]

代码如下（VFP6）： select atm_ping_dbf &&ip地址放在atm_ping_dbf表的atm_addr2字段，ip格式：xxx.xxx.xxx.xxx/掩码/网关 if reccount('atm_ping_dbf')!=0 replace atm_addr2 with left(alltrim(atm_addr2),atcc('/',alltrim(atm_addr2))-1) all delete all for empty(atm_addr2) in atm_ping_dbf select atm_ping_dbf pack copy to array atm_ping_dbf_array fields atm_addr2 for i=1 to reccount('atm_ping_dbf') go i if i=1 my_cmd = "command /c ping -n 1 -w 1000 "+alltrim(atm_addr2)+" > atm_ping.log" else my_cmd = "command /c ping -n 1 -w 1000 "+alltrim(atm_addr2)+" >> atm_ping.log" endif my_form.lbl_reccount.caption="网络测试："+alltrim(str(i))+"/"+alltrim(str(reccount('atm_ping_dbf'))) my_sh = createobject("wscript.shell") my_sh.run(my_cmd,0,.t.) release my_sh endfor

[everyday1212]

麻烦老师帮忙看看，谢谢！

[everyday1212]

代码如下（VFP6）： select atm_ping_dbf &&ip地址放在atm_ping_dbf表的atm_addr2字段，ip格式：xxx.xxx.xxx.xxx/掩码/网关 replace atm_addr2 with left(alltrim(atm_addr2),atcc('/',alltrim(atm_addr2))-1) all for i=1 to reccount('atm_ping_dbf') go i if i=1 my_cmd = "command /c ping -n 1 -w 1000 "+alltrim(atm_addr2)+" > atm_ping.log" else my_cmd = "command /c ping -n 1 -w 1000 "+alltrim(atm_addr2)+" >> atm_ping.log" endif my_sh = createobject("wscript.shell") my_sh.run(my_cmd,0,.t.) release my_sh endfor 麻烦老师帮忙看看