如图：

要求是在打开另一个窗口时，在窗口上想要利用标签（Label26)始终显示“中江屠宰场”。如果表有数据直接绑定“屠宰场名称”的列即可，这个容易解决.但进入时当天没有数据时，如何显示“中江屠宰场”?

我采取的方法是，在窗口AfterLoad中写了如下代码：

Dim lbl As WinForm.Label
lbl = e.Form.Controls("Label26")
lbl.Text = "" & Forms("屠宰检疫管理登陆").Controls("ComboBox1").Value & ""

这个方法也可以按要求显示“中江屠宰场”，但关闭"屠宰检疫管理登陆"窗口后，显示：

怎么解决这个问题？望大侠们帮忙！

窗口都关闭了，控件都不存在了，你怎么读取这个值呢？

应该：

1、定义一个public变量

2、屠宰检疫管理登陆窗口的BeforeClose事件：

变量 = Forms("屠宰检疫管理登陆").Controls("ComboBox1").Value

3、另一个窗口：

Dim lbl As WinForm.Label
lbl = e.Form.Controls("Label26")
lbl.Text = "" & 变量  & ""

1、定义一个public变量

在项目管理全局代码中：

Public tzc As String

2、屠宰检疫管理登陆窗口的BeforeClose事件：

tzc = Forms("屠宰检疫管理登陆").Controls("ComboBox1").Value

3、另一个窗口：

Dim lbl As WinForm.Label
lbl = e.Form.Controls("Label26")
lbl.Text = "" & tzc  & ""

怎么Label26不显示内容？

感谢有点甜及blackzhu版主，如果lbl.Text = tzc ，现在Label26可以显示tzc的值，但有个问题，如果第一次登陆选择的屠宰场名，在Label26显示是正确的，但是关闭窗口后，再次登陆时，选择另一个屠宰场时，打开的窗口Label26显示的是上一次登陆时选择的屠宰场名，而不是这次选择的，怎么回事？

怎么会呢 tzc  你应该重新赋值  在打开一次才行 

或者你可以这样

if forms("xxx").opened then  \'如果窗口打开 

Dim lbl As WinForm.Label
lbl = Forms("xxx").Controls("Label26")
lbl.Text = Forms("屠宰检疫管理登陆").Controls("ComboBox1").Value

end if