两个窗口之间如何传递值,请问 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 两个窗口之间如何传递值,请问

共有2299人关注过本帖树形打印复制链接主题：两个窗口之间如何传递值,请问

zhy400137

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：五尾狐帖子：1133 积分：8227 威望：0 精华：0 注册：2013/11/3 19:00:00

两个窗口之间如何传递值,请问 发帖心情

Post By：2018/4/11 15:26:00 [只看该作者]

Dim txt1 As WinForm.TextBox = e.Form.Controls("TextBox1")

Dim txt2 As WinForm.TextBox = e.Form.Controls("TextBox2")

Dim txt1value As String=txt1.text

Dim txt2value As String=txt2.text

e.Form.Close

Forms("窗口1").open()

Forms("窗口1").Controls("TextBox1").Value=txt1value

Forms("窗口1").Controls("TextBox2").Value=txt2value

我在窗口2点击一个按钮后,希望打开窗口1并将窗口2的两个值传递给窗口1的两个文本框,上面的代码不对?请教要如何处理?谢谢

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/4/11 16:27:00 [只看该作者]

1、窗口1如果不是模式窗口，你写的代码没问题。

2、如果是模式窗口，代码改成

Dim txt1 As WinForm.TextBox = e.Form.Controls("TextBox1")

Dim txt2 As WinForm.TextBox = e.Form.Controls("TextBox2")

vars("txt1") = txt1.text

vars("txt2") = txt2.text

e.Form.Close

然后afterLoad事件写

Forms("窗口1").Controls("TextBox1").Value=vars("txt1")

Forms("窗口1").Controls("TextBox2").Value=vars("txt2")

主题：两个窗口之间如何传递值,请问