-- 作者:jackyfashion
-- 发布时间:2017/2/8 13:51:00
--
我是做服装的,对编程只有爱好,但不懂,一路来多谢狐表公司及论谈各位大师的技特,指教!特此谢谢各位!!!
就是 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
|