以文本方式查看主题

-  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=136546)
--  作者：刘林
--  发布时间：2019/6/15 15:22:00
--  listview
Dim c4 As WinForm.ComboBox= e.Form.Controls("combobox4")
Dim xq As String = c4.text.SubString(0,3)
DataTables("师表").loadfilter="学期=\'" & xq & "\' and 学校名称=\'" & _usergroup & "\'"
DataTables("师表").load
Dim Names As New List(Of String)
Dim bzr As String
Dim tb As Table = Tables("师表")
Dim i As Integer
For Each r As Row In tb
    For i = 8 To tb.Cols.Count-2
        If  Names.Contains(r(tb.Cols(i).name))= False
            Names.Add(r(tb.Cols(i).name))
        End If
    Next
Next
names.sort
Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")
lvw.StopRedraw() \'暂停绘制
lvw.Rows.Clear() \'清除原来的行
lvw.Images.Clear() \'清除原来的图片
lvw.View = ViewMode.LargeIcon \'显示模式为大图标
Dim key1 As String = ProjectPath & "images\\teacher.jpg"
For Each name As String In names
   lvw.Images.AddLargeImage(Key1,key1)
    Dim vr As  WinForm.ListViewRow =  lvw.Rows.Add() \'增加一行
    vr.Text = name  \'设置标题
    vr.ImageKey = Key1
Next
lvw.ResumeRedraw() \'恢复绘制


用上面代码生成的列表视图，如何双击时将VR.text在一个表中增加一行，并把VR.TEXT填进去？
--  作者：有点蓝
--  发布时间：2019/6/15 15:45:00
--  
到RowSelectionChanged事件处理：http://www.foxtable.com/webhelp/topics/2786.htm
--  作者：刘林
--  发布时间：2019/6/15 17:42:00
--  
messagebox.show(e.Row.text)

我第一次点图标是显示对了的，但换图标时点时还显示前一个图标的TEXT，我想双击时取得其TEXT该怎么写？
--  作者：有点蓝
--  发布时间：2019/6/15 17:46:00
--  
这个事件：http://www.foxtable.com/webhelp/topics/2872.htm