主题：怎么让listview不显示当前被选中的行

 加上判断

If dr("id") <> Tables("表A").Current("id") Then

End If

For Each dr As DataRow In DataTables("商品").Select("[gongxiang] =1") '从数据表中提取数据
   
    If dr("id") <> Tables("表A").Current("id") Then
        ' Dim Key As String = ProjectPath & "images\aaa\" & dr("ppp")'
        Dim Key As String = "e:\as2\" & dr("ppp")'
        lvw.Images.AddLargeImage(Key, Key) '添加照片,直接用文件名作为图片键值
        Dim vr As  WinForm.ListViewRow =  lvw.Rows.Add() '增加一行
        vr.ToolTipText = dr("cn_name")  '设置此行的动态提示
        vr.ImageKey = Key '设置图片键值
        For Each cl As String In cls '逐列取值
            vr(cl) = dr(cl)
        Next
        vr.tag = dr
    End If
Next