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的状态栏自己建立了一个底部共有窗口,这些代码放在项目时间的系统空闲的那个指令下面,正常使用时没有问题,当点击开发功能时比如点击窗口管理的时候,底部共有窗口会自动隐藏起来,此时这些代码就因为没有底部窗口提示错误,提示的错误就是不存在底部共有窗口,这个仅仅是在点击开发功能的时候会出错,正常使用没问题的,怎么改代码,即使开发的时候窗口不显示的时候不提示那个错误呢?