以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  两个窗口之间如何传递值,请问  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=117375)
--  作者：zhy400137
--  发布时间：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的两个文本框,上面的代码不对?请教要如何处理?谢谢
--  作者：有点甜
--  发布时间：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")