Foxtable(狐表) → 用户栏目 → 专家坐堂 → 双击ListView 行，怎么不弹窗口？


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

主题：双击ListView 行，怎么不弹窗口？
帅哥哟，离线，有人找我吗？
hongye
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：437 积分：2943 威望：0 精华：0 注册：2011/3/15 12:49:00 		双击ListView 行，怎么不弹窗口？  发帖心情 Post By：2020/2/17 17:22:00 [只看该作者]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:lvw.foxdb


Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")
Dim vr As WinForm.ListViewRow = lvw.Current '获取ListView的当前行
Dim dr As DataRow = vr.tag
Dim lr As WinForm.ListViewRow = e.Sender.Current
'MessageBox.Show("你双击的是:" & lr.Text & "  " & lr.Group)
Dim n As  String = "表" & lr.Group.SubString(1,1)
Dim ps As Integer = Tables(n).FindRow(dr)
If ps >= 0 Then
    Tables(n).Position = ps
    Forms("窗口2").Open()
    Forms("窗口2").Controls("Label2").text = n
    Forms("窗口2").Controls("Label1").text = Tables(n).Current(5)
    For i As Integer = 8 To Tables(n).Cols.Count -1
        Dim lb As String = "bt" & Format(i-5,"00")
        Forms("窗口2").Controls("bt" & Format(01,"00")).text = Tables(n).Cols(5).Name & ":"
        Forms("窗口2").Controls("bt" & Format(02,"00")).text = Tables(n).Cols(6).Name & ":"
        Forms("窗口2").Controls(lb).text = Tables(n).Cols(i).Name & ":"
        Dim tb As String = "TextBox" & i-5
        Forms("窗口2").Controls("TextBox" & "1").Value = Tables(n).Current(7) & "" & Tables(n).Current(5)
        Forms("窗口2").Controls("TextBox" & "2").Value = Tables(n).Current(6)
        Forms("窗口2").Controls(tb).Value = Tables(n).Current(i)
    Next
End If
双击ListView 行，怎么不弹窗口？
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107024 积分：544351 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/2/17 17:28:00 [只看该作者]

没有给tag赋值

For Each dr As DataRow In DataTables("表A").DataRows '从数据表中提取数据
    Dim vr As  WinForm.ListViewRow =  lvw.Rows.Add() '增加一行
    vr.tag = dr
 回到顶部
帅哥哟，离线，有人找我吗？
hongye
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：437 积分：2943 威望：0 精华：0 注册：2011/3/15 12:49:00 		  发帖心情 Post By：2020/2/17 19:52:00 [只看该作者]

不知道怎么搞，能不能帮我改一下
目的是双击ListViewRow，然后会在窗口2，TextBox显示对应行的数据，并且可以更改，
TextBox1 = Tables(n).Current(7) & "" & Tables(n).Current(5)
 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107024 积分：544351 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/2/17 20:14:00 [只看该作者]

1楼不就是这样用的吗

 回到顶部
帅哥哟，离线，有人找我吗？
hongye
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：437 积分：2943 威望：0 精华：0 注册：2011/3/15 12:49:00 		  发帖心情 Post By：2020/2/17 20:18:00 [只看该作者]

问题是双击ListView行，没有Forms("窗口2").Open()

 回到顶部
帅哥，在线噢！
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107024 积分：544351 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/2/17 20:34:00 [只看该作者]

窗口肯定要打开才能使用里面的控件呀，如果已经打开，直接使用即可

Forms("窗口2").Controls("Label1").text = Tables(n).Current(5)
 回到顶部
帅哥哟，离线，有人找我吗？
hongye
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：437 积分：2943 威望：0 精华：0 注册：2011/3/15 12:49:00 		  发帖心情 Post By：2020/2/17 20:50:00 [只看该作者]

实列已经上传，你帮我看一下，
问题是双击ListView行，没有Forms("窗口2").Open()
如果像下面这样的话，TextBox显示不正确
Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")
Dim vr As WinForm.ListViewRow = lvw.Current '获取ListView的当前行
Dim dr As DataRow = vr.tag
Dim lr As WinForm.ListViewRow = e.Sender.Current
'MessageBox.Show("你双击的是:" & lr.Text & "  " & lr.Group)
Dim n As  String = "表" & lr.Group.SubString(1,1)
    Forms("窗口2").Open()
    Forms("窗口2").Controls("Label2").text = n
    Forms("窗口2").Controls("Label1").text = Tables(n).Current(5)
    For i As Integer = 8 To Tables(n).Cols.Count -1
        Dim lb As String = "bt" & Format(i-5,"00")
        Forms("窗口2").Controls("bt" & Format(01,"00")).text = Tables(n).Cols(5).Name & ":"
        Forms("窗口2").Controls("bt" & Format(02,"00")).text = Tables(n).Cols(6).Name & ":"
        Forms("窗口2").Controls(lb).text = Tables(n).Cols(i).Name & ":"
        Dim tb As String = "TextBox" & i-5
        Forms("窗口2").Controls("TextBox" & "1").Value = Tables(n).Current(7) & "" & Tables(n).Current(5)
        Forms("窗口2").Controls("TextBox" & "2").Value = Tables(n).Current(6)
        Forms("窗口2").Controls(tb).Value = Tables(n).Current(i)
    Next
 回到顶部
帅哥哟，离线，有人找我吗？
hongye
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：437 积分：2943 威望：0 精华：0 注册：2011/3/15 12:49:00 		  发帖心情 Post By：2020/2/17 20:54:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：01.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥，在线噢！
有点蓝
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107024 积分：544351 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/2/17 20:56:00 [只看该作者]

改回1楼的用法即可。

 回到顶部
帅哥哟，离线，有人找我吗？
hongye
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：437 积分：2943 威望：0 精华：0 注册：2011/3/15 12:49:00 		  发帖心情 Post By：2020/2/17 20:58:00 [只看该作者]

一楼的打不开“窗口2”

 回到顶部
总数 21 1 2 3 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 5 次数据查询