双击ListView 行，怎么不弹窗口？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

没有给tag赋值

For Each dr As DataRow In DataTables("表A").DataRows '从数据表中提取数据

Dim vr As WinForm.ListViewRow = lvw.Rows.Add() '增加一行

vr.tag = dr

1楼不就是这样用的吗

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

Forms("窗口2").Controls("Label1").text = Tables(n).Current(5)

改回1楼的用法即可。

1楼项目按2楼的说明改啊，窗口afterload事件，给每一个新增的行加上tag值啊

vr.tag = dr

就是因为新增行的时候没有处理好，所以才导致双击显示窗口有问题呀！

流水线上任何一个环节出问题都会导致废品。代码也一样，从窗口启动开始，很多事件代码都有相关性的，前面没有处理好就好导致后面一系列的各种问题

还要怎么说呢，前面都没有给行的tag属性赋值，tag属性就是空的，RowActivate里面使用到肯定就出错咯

这个是ListView里RowActivate里的代码

Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")

Dim vr As WinForm.ListViewRow = lvw.Current '获取ListView的当前行

Dim dr As DataRow = vr.tag

……

---------------------------

……

For Each gp As String In gps

Dim vg As WinForm.ListViewGroup = lvw.Groups.Add() '增加分组

vg.Name = gp '指定分组名称

vg.Text = gp '指定分组标题

For Each dr As DataRow In DataTables("表A").DataRows '从数据表中提取数据

Dim vr As WinForm.ListViewRow = lvw.Rows.Add() '增加一行

vr.tag = dr

Dim s As String = ""

For i As Integer = 5 To Tables("表A").Cols.Count - 1

Dim hmc As String

hmc = Tables("表A").Cols(i).Name

s = s & vbcrlf & hmc & ":" & dr(hmc)

vr.ToolTipText = s.trim()

For Each cl As String In cls '逐列取值

vr("项目名称") = dr("面料名称")

vr("规格") = dr("规格")

……

主题：双击ListView 行，怎么不弹窗口？