以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于点击开发功能暂时隐藏的窗口提示出错的问题，  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=82235)
--  作者：lovemaders
--  发布时间：2016/3/14 13:13:00
--  关于点击开发功能暂时隐藏的窗口提示出错的问题，

With  CurrentTable
    \'Dim Str1  As  String =  "  当前登录用户:" & "【" & User.Name & "】"
    \'Str1 = Str1 & "         正操作表名为:" & "【" & .Name & "】" & "   总行数:"
    \'Str1 = Str1 & .Rows.Count &  "  当前行:" & (.Position + 1)
    \'Str1 = Str1 &  "                      今天是:" & Date.now & "【系统日期】"
     \'Dim lb As WinForm.Label = Forms("底部共有").Controls("欢迎使用")    
    \'lb.Text =  Str1 

\'End  With

 

没有用FOX的状态栏自己建立了一个底部共有窗口，这些代码放在项目时间的系统空闲的那个指令下面，正常使用时没有问题，当点击开发功能时比如点击窗口管理的时候，底部共有窗口会自动隐藏起来，此时这些代码就因为没有底部窗口提示错误，提示的错误就是不存在底部共有窗口，这个仅仅是在点击开发功能的时候会出错，正常使用没问题的，怎么改代码，即使开发的时候窗口不显示的时候不提示那个错误呢？
--  作者：lovemaders
--  发布时间：2016/3/14 14:44:00
--  
这个能解决吗？
--  作者：大红袍
--  发布时间：2016/3/14 16:13:00
--  

判断一下窗口是否存在不就行了？

 

If Forms("底部共有").Opened Then

 

End If