怎么会呢 tzc 你应该重新赋值 在打开一次才行
或者你可以这样
if forms("xxx").opened then '如果窗口打开
Dim lbl As WinForm.Labellbl = Forms("xxx").Controls("Label26")lbl.Text = Forms("屠宰检疫管理登陆").Controls("ComboBox1").Value
end if