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

everyday1212 2018-02-21 01:58:29
通过代码对200多台电脑设备做ping的网络测试,程序运行结束后鼠标箭头在这个程序界面消失了。哪位老师知道怎么解决吗?
...全文
1069 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
everyday1212 2018-02-24
  • 打赏
  • 举报
回复
代码如下(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 麻烦老师帮忙看看
everyday1212 2018-02-22
  • 打赏
  • 举报
回复
麻烦老师帮忙看看,谢谢!
everyday1212 2018-02-22
  • 打赏
  • 举报
回复
代码如下(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
十豆三 2018-02-21
  • 打赏
  • 举报
回复
帖出你的代码或异步调用执行你的代码 另外请参考:http://blog.csdn.net/dkfdtf/article/details/2773229
everyday1212 2018-02-21
  • 打赏
  • 举报
回复
补充:不是每次都这样。程序运行完成后如果过一段时间再去点开这个程序经常会出现这种情况,如果及时让程序重获前端显示就少有这种情况。

2,735

社区成员

发帖
与我相关
我的任务
社区描述
VFP,是Microsoft公司推出的数据库开发软件,用它来开发数据库,既简单又方便。
社区管理员
  • VFP社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧