- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 窗口控件显隐求助 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=142929)
-- 发布时间：2019/11/9 10:59:00
-- 窗口控件显隐求助
窗口中有个备注标签，和备注数据，如果备注数据没有内容，那么这个备注标签在窗口中也不显示，如何实现,请老师指教。
此主题相关图片如下：0000000.jpg
[此贴子已经被作者于2019/11/10 22:01:50编辑过]
-- 发布时间：2019/11/9 11:05:00
--
窗口加载事件 这么写不行，错在什么地方
Dim bbq As WinForm.Label = e.Form.Controls("bzbq")
Dim bsj As WinForm.Label = e.Form.Controls("bzsj")
If bsj.Text > "" Then
bbq.Visible = True
Else
bbq.Visible = False
End If
-- 发布时间：2019/11/9 11:10:00
--
代码放到bzsj的textchanged事件
-- 发布时间：2019/11/9 14:19:00
--
老师代码写在bzsj的textchanged事件，还是不行
-- 发布时间：2019/11/9 14:39:00
--
看漏了，标签没有textchanged事件。如果是绑定的，到表格datacolchanged处理
if e.datacol.name = "bzsj绑定的列"
if forms("窗口1").opened
Dim bbq As WinForm.Label = forms("窗口1").Controls("bzbq")
bbq.Visible = e.newvalue > ""
end if
end if
-- 发布时间：2019/11/9 14:40:00
--
e.Form.Controls("bzbq").Visible = (len(e.Form.Controls("bzsj").text) > 0)
-- 发布时间：2019/11/9 22:55:00
--
程老师麻烦问下这个代码写在上面地方，小白求指点
-- 发布时间：2019/11/9 22:56:00
--
老师按照你的步骤，还是不行，求指点
看漏了，标签没有textchanged事件。如果是绑定的，到表格datacolchanged处理
if e.datacol.name = "bzsj绑定的列"
if forms("窗口1").opened
Dim bbq As WinForm.Label = forms("窗口1").Controls("bzbq")
bbq.Visible = e.newvalue > ""
end if
end if
[此贴子已经被作者于2019/11/10 8:59:57编辑过]
-- 发布时间：2019/11/10 15:17:00
--
楼主这个做法不妥。因为：
一开始是没有备注数据的，以后想写备注怎么办？
如果某人记不得自己是否写过备注数据，而你又隐藏了，让他怎么想？他是否会认为你的软件有问题？你是否要给所有用户作大量解释？
空白备注放在那儿，什么也不影响呀。
空白数据也是一种数据，不能随意隐藏。
-- 发布时间：2019/11/10 21:11:00
--
以下是引用long086在2019/11/9 22:56:00的发言：
请上传具体实例说明
老师按照你的步骤，还是不行，求指点
看漏了，标签没有textchanged事件。如果是绑定的，到表格datacolchanged处理
if e.datacol.name = "bzsj绑定的列"
if forms("窗口1").opened
Dim bbq As WinForm.Label = forms("窗口1").Controls("bzbq")
bbq.Visible = e.newvalue > ""
end if
end if
[此贴子已经被作者于2019/11/10 8:59:57编辑过]