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填进去？
加好友 
发短信
Post By：2019/6/15 15:22:00 [只看该作者]
