以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何将某一窗口中表中的数据共享引用到多窗口？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=9996)
--  作者：qhczy
--  发布时间：2011/5/17 20:35:00
--  如何将某一窗口中表中的数据共享引用到多窗口？

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

 

 

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

 

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("值")
[此贴子已经被作者于2011-5-17 20:51:16编辑过]
--  作者：狐狸爸爸
--  发布时间：2011/5/17 21:27:00
--  
没看懂，你这个代码设置在那？ 错误提示是什么？
--  作者：qhczy
--  发布时间：2011/5/17 21:32:00
--  
代码设置在drowdowmmfor窗口中表事件杂项 doubleclick 中。
--  作者：qhczy
--  发布时间：2011/5/17 21:34:00
--  

错误提示为 窗口3中，

窗口2已经关闭，不能调用窗口2中的“numericcombobox7”
--  作者：狐狸爸爸
--  发布时间：2011/5/17 21:38:00
--  

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

 

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

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

End If
--  作者：qhczy
--  发布时间：2011/5/17 21:46:00
--  

改成这样取不到值。

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

[此贴子已经被作者于2011-5-17 21:47:05编辑过]
--  作者：狐狸爸爸
--  发布时间：2011/5/17 21:50:00
--  

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

窗口都没打开，所有控件都没生成，是无法赋值的。
--  作者：qhczy
--  发布时间：2011/5/17 21:51:00
--  
那应该怎么赋值呢？
--  作者：狐狸爸爸
--  发布时间：2011/5/17 21:53:00
--  
如果这个值要留着窗口2打开后使用，你就保存在某个全局变量中，全局变量的作用就是这个。
--  作者：mr725
--  发布时间：2011/5/17 21:56:00
--  

发个文件上来看看呀。