以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  ListView数据传出  (http://foxtable.net/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