- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]看下面代码 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=8343)
-- 发布时间：2010/10/9 14:51:00
-- [求助]看下面代码
Dim a
a = Forms("仓调拨单").Controls("Labels4")
If a IsNot Nothing Then
MessageBox.Show("活动窗口为:")
Else
MessageBox.Show("无活动窗口!" )
End If
运行该代码，提示找不到 Labels4控件。
如何才能屏蔽错误？
-- 发布时间：2010/10/9 15:56:00
--
没道理呀，是不是Label名称和文本混淆了？
-- 发布时间：2010/10/9 16:08:00
--
我窗口上就没有名为：Labels4的控件。
由于考虑到代码的通用性。
加入当前窗口中未存在某控件，则跳过某段代码。
-- 发布时间：2010/10/9 16:45:00
--
窗口有Controls集合，先判断一下应该就行了。
-- 发布时间：2010/10/9 16:56:00
--
是Labels4,还是Label4?
-- 发布时间：2010/10/9 17:05:00
--
Dim frm As WinForm.Form = Forms.ActiveForm
If frm IsNot Nothing Then
For Each c As WinForm.Control In Forms(frm.Name).Controls
Output.Show(c.Name)
Next
End If
判断上面代码中的C.Name就行了。