Foxtable(狐表)用户栏目专家坐堂 → 大佬求助。模式窗口与模式窗口之间的传值问题。


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

主题:大佬求助。模式窗口与模式窗口之间的传值问题。

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


加好友 发短信
等级:幼狐 帖子:178 积分:1150 威望:0 精华:0 注册:2018/9/17 11:16:00
大佬求助。模式窗口与模式窗口之间的传值问题。  发帖心情 Post By:2018/9/27 18:22:00 [只看该作者]

不好意西,打扰了,感谢大佬帮我解决问题。
问题:我有两个模式窗口,窗口A和窗口B,我在窗口B中的控件的值来自窗口A中的控件的值,窗口B由窗口A中的按钮单击事件弹出来的。我窗口的传值方法是这样弄的:
Dim lvw As WinForm.ListView = e.Form.Controls("LV_SCXX")
Dim vr As WinForm.ListViewRow = lvw.Current '获取ListView中选定的行
If vr Is Nothing Then '如果不存在当前行,也就是内有选定任何一行
    Return
End If
Dim dr As DataRow = vr.tag '获取此行对应的DataRow
Forms("金相").Open()
try
Forms("金相").Controls("TXT_MO").Text = dr("制令单号")
Forms("金相").Controls("TXT_TI").Text = dr("送检单号") 
Forms("金相").Controls("DTP_MODATE").Text  = dr("制令单时间")
Forms("金相").Controls("TXT_DEP").Text = dr("生产线") 
Forms("金相").Controls("TXT_PRDNAME").Text = dr("货品名称") 
Forms("金相").Controls("TXT_PRDNO").Text = dr("货品编号") 
Vars("_intXc")=dr("项次")
catch ex As exception
    Return
End try


有没有不弄全局变量的方法来传值,因为需要传值的太多了。
帮助文档里面没理解到。

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/9/27 18:27:00 [只看该作者]

窗口B打开的时候,在afterLoad事件读取窗口A的控件的值过来。

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


加好友 发短信
等级:幼狐 帖子:178 积分:1150 威望:0 精华:0 注册:2018/9/17 11:16:00
  发帖心情 Post By:2018/9/27 18:30:00 [只看该作者]

谢谢

 回到顶部