Foxtable(狐表)用户栏目专家坐堂 → 如何将某一窗口中表中的数据共享引用到多窗口?


  共有13756人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
qhczy
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:274 积分:2451 威望:0 精华:1 注册:2010/9/14 13:18:00
如何将某一窗口中表中的数据共享引用到多窗口?  发帖心情 Post By: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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/5/17 21:27:00 [只看该作者]

没看懂,你这个代码设置在那? 错误提示是什么?

 回到顶部
帅哥哟,离线,有人找我吗?
qhczy
  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:274 积分:2451 威望:0 精华:1 注册:2010/9/14 13:18:00
  发帖心情 Post By:2011/5/17 21:32:00 [只看该作者]

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

 回到顶部
帅哥哟,离线,有人找我吗?
qhczy
  4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:274 积分:2451 威望:0 精华:1 注册:2010/9/14 13:18:00
  发帖心情 Post By:2011/5/17 21:34:00 [只看该作者]

错误提示为 窗口3中,

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


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/5/17 21:38:00 [只看该作者]

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

 

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

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

End If


 回到顶部
帅哥哟,离线,有人找我吗?
qhczy
  6楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:274 积分:2451 威望:0 精华:1 注册:2010/9/14 13:18:00
  发帖心情 Post By: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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/5/17 21:50:00 [只看该作者]

窗口2都没打开,取值到窗口2干啥?

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


 回到顶部
帅哥哟,离线,有人找我吗?
qhczy
  8楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:274 积分:2451 威望:0 精华:1 注册:2010/9/14 13:18:00
  发帖心情 Post By:2011/5/17 21:51:00 [只看该作者]

那应该怎么赋值呢?

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/5/17 21:53:00 [只看该作者]

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

 回到顶部
帅哥哟,离线,有人找我吗?
mr725
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:MVP荣誉狐 帖子:5154 积分:31434 威望:0 精华:8 注册:2008/9/8 12:27:00
  发帖心情 Post By:2011/5/17 21:56:00 [只看该作者]

发个文件上来看看呀。


 回到顶部
总数 11 1 2 下一页