以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  ListView数据传出  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=50041)
--  作者：qianqian1530
--  发布时间：2014/4/28 13:22:00
--  ListView数据传出
 双击  ListView的 一行以后， 打开另个窗口，  

然后怎么传送数据呢？

双击事件：Forms("詳しく").show

窗口加载后：
If Forms("快递").opened Then
    e.Form.Controls("Label15").text = Tables("快递_Table1").Current("操作記録")
    e.Form.Controls("Label16").text  ListView？
End If
--  作者：blackzhu
--  发布时间：2014/4/28 13:49:00
--  
Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")
dim r as row = lvw.current
 if r isnot thing then
   forms("xxx").show
end if

或者

 if r.Name ="xxx" then  \'判断当前的名称
     forms("xxx").show
end if
--  作者：qianqian1530
--  发布时间：2014/4/28 14:00:00
--  
  不行...
--  作者：Bin
--  发布时间：2014/4/28 14:02:00
--  
代码要放到另外一个窗口AlterLoad事件
--  作者：有点甜
--  发布时间：2014/4/28 14:07:00
--  

楼主，你要传递ListView的什么数据？双击的那一行的数据？

 

数据又在新打开的窗口的哪里引用？
--  作者：qianqian1530
--  发布时间：2014/4/28 14:13:00
--  回复：（有点甜）楼主，你要传递ListView的什么数据？...
简单说就是， 在A窗口 双击ListView 某一行，

会打开B窗口

然后 A窗口ListView的某一行的某一个数据，

会传送到,B窗口的 TextBox1 里
--  作者：qianqian1530
--  发布时间：2014/4/28 15:06:00
--  
自己顶一下···
--  作者：Bin
--  发布时间：2014/4/28 15:12:00
--  
看4楼
--  作者：blackzhu
--  发布时间：2014/4/28 15:28:00
--  
我的代码怎么不行呢  不就双击打开窗口呀
--  作者：有点甜
--  发布时间：2014/4/28 15:29:00
--  

 直接在afterload里面写入如下代码

 

If Forms("快递").opened Then

    Dim r As Row = Forms("快递").Controls("ListView1").Current
    e.Form.Controls("Label15").text = r("第一列")
    e.Form.Controls("Label16").text  = r("第二列")
End If