主题：【求助】ListView

 你需要重新生成listview内容。你控制好生成的内容即可。

Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")
lvw.Rows.Clear
Dim cls() As String = {"工号","姓名","性别","地址"} '定义列名
Dim txt As String = "%" & e.Form.Controls("TextBox1").text & "%"
Dim filter As String = "姓名 like '" & txt & "' or 性别 like '" & txt & "' or 地址 like '" & txt & "' or 工号 like '" & txt & "'"
For Each dr As DataRow In DataTables("员工信息").Select(filter) '从数据表中提取数据
    Dim vr As  WinForm.ListViewRow =  lvw.Rows.Add() '增加一行
    For Each cl As String In cls '逐列取值
        vr(cl) = dr(cl)
    Next
    If dr("性别") = "男" Then '设置分组
        vr.ImageKey = "Man"
    Else
        vr.ImageKey = "Woman"
    End If
    vr.Tag= dr '将DataRow赋值给ListViewRow的Tag属性,将二者联系起来
Next

示例十四窗口

 

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:listview示例.table