主题：如何将某一窗口中表中的数据共享引用到多窗口？

如何将某一窗口中表中的数据共享引用到多窗口？

 

 

需要共享的窗口表中的代码如下

 

Dim tbl As Table = Tables("下拉窗口_Table1")
If tbl.Current IsNot Nothing Then
    Forms("下拉窗口").DropDownBox.Value = tbl.Current("产品编号")
End If
Forms("下拉窗口").DropDownBox.CloseDropDown()
Forms("窗口2").controls("NumericComboBox7").Value = e.Row("值")
我想把这个下拉窗口中的表里面的数据值引用到多窗口，窗口3，窗口4等。

 

我改成这样子，报错了，请高手指点。

Dim tbl As Table = Tables("下拉窗口_Table1")
If tbl.Current IsNot Nothing Then
    Forms("下拉窗口").DropDownBox.Value = tbl.Current("产品编号")
End If
Forms("下拉窗口").DropDownBox.CloseDropDown()
Forms("窗口2").controls("NumericComboBox7").Value =Forms("窗口3").controls("NumericComboBox7").Value =Forms("窗口4").controls("NumericComboBox7").Value=e.Row("值")

 

改成这样也报错

Dim tbl As Table = Tables("下拉窗口_Table1")
If tbl.Current IsNot Nothing Then
    Forms("下拉窗口").DropDownBox.Value = tbl.Current("产品编号")
End If
Forms("下拉窗口").DropDownBox.CloseDropDown()
Forms("窗口2").controls("NumericComboBox7").Value =e.Row("值")

Forms("窗口3").controls("NumericComboBox7").Value =e.Row("值")

Forms("窗口4").controls("NumericComboBox7").Value =e.Row("值")

代码设置在drowdowmmfor窗口中表事件杂项 doubleclick 中。

错误提示为 窗口3中，

窗口2已经关闭，不能调用窗口2中的“numericcombobox7”

改成这样取不到值。

Dim tbl As Table = Tables("下拉产品_Table1")
If tbl.Current IsNot Nothing Then
    Forms("下拉产品").DropDownBox.Value = tbl.Current("产品编号")
End If
If Forms("窗口2").Opened Then

    Forms("容器").controls("NumericComboBox7").Value =e.Row("值")
Forms("下拉产品").DropDownBox.CloseDropDown()
Forms("窗口2").controls("NumericComboBox7").Value = Forms("容器").controls("NumericComboBox7").Value=e.Row("值")

End If

那应该怎么赋值呢？

我再捉磨捉磨，谢谢各个狐友。