以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  各位大师:新年好!  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=95907)

--  作者:jackyfashion
--  发布时间:2017/2/8 13:34:00
--  各位大师:新年好!
各位大师:新年好!
--  作者:jackyfashion
--  发布时间:2017/2/8 13:51:00
--  

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

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

ListviewRetrieveVirtualRow的代码是: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


--  作者:有点色
--  发布时间:2017/2/8 14:11:00
--  

你的路径是否正确?

 

msgbox(lt & Key)

lvw.Images.AddImage(Key, it & Key, it & Key)


--  作者:jackyfashion
--  发布时间:2017/2/8 14:36:00
--  
谢谢!!!