主题：各位大师：新年好！

我是做服装的，对编程只有爱好，但不懂，一路来多谢狐表公司及论谈各位大师的技特，指教！特此谢谢各位！！！

就是 ListView，客户机连服务器，看不到图, PictureViewer  可以看的到，

Listview在RetrieveVirtualRow的代码是：Dim lt = "\\Np-001\data\Attachments\"
Dim lvw As WinForm.ListView = e.Sender
lvw.StopRedraw
Dim dr As DataRow = DataTables("qrymyf").DataRows(e.Index) '根据行位置从数据表中取得对应的DataRow
Dim Key As String = dr("ltsu")
lvw.Images.LargeSize = New Size(105,150)
'lvw.Images.AddImage(Key,Key & ".",Key & ".") '添加代表这个国家的图标
lvw.Images.AddImage(Key,lt & Key & ".",Key & ".")
e.Row.Imagekey = key '指定图标键值
e.Row.Tag = dr '将DataRow赋值给ListViewRow的Tag属性,将二者联系起来
For Each cl As WinForm.ListViewColumn In lvw.Columns '逐列取值
    Select Case cl.Name
        Case "ffikgn","ffaa" '如果是人口列或面积列
            e.Row(cl.Name) = dr(cl.Name) '则显示千位分割符号
        Case Else
            e.Row(cl.Name) = dr(cl.Name)
            e.Row.ToolTipText = "设 计 师: " & dr("ymyfjgm") & vbcrlf & "进    度: " & dr("fjya") & vbcrlf & "发布日期: " & dr("vdmhjjad") & vbcrlf & "纸样师: " & dr("xqsujgm") & vbcrlf & "纸样进度: " & dr("xqsufjya") & vbcrlf & "车板师: " & dr("lgsrjgm") & vbcrlf & "车板进度: " & dr("lgsrfjya") & vbcrlf & "" & vbcrlf & "双击图像可以打开 款式资料 修改"& vbcrlf & "经理级别 右键单击图样后, 右击可打开 发布窗口"
            Dim nm As String = dr("vdmh")
            Dim nm2 As String = dr("pjsy")
            If nm = False And nm2 = False Then
                e.Row.ForeColor =  Color.White
            ElseIf nm = True And nm2 = False Then
                e.Row.ForeColor =  Color.DeepSkyBlue
            ElseIf nm2 = True Then
                e.Row.ForeColor =  Color.Lime
            End If
    End Select
Next
lvw.ResumeRedraw