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

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

 

 

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

 

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”

窗口2关闭了，当然不能使用其中的控件了，可以判断一下：

 

If Forms("窗口2").Opened Then

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

End If

改成这样取不到值。

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

窗口2都没打开，取值到窗口2干啥？

窗口都没打开，所有控件都没生成，是无法赋值的。

那应该怎么赋值呢？

如果这个值要留着窗口2打开后使用，你就保存在某个全局变量中，全局变量的作用就是这个。

发个文件上来看看呀。