Foxtable(狐表)用户栏目专家坐堂 → 各位大师:新年好!


  共有2195人关注过本帖树形打印复制链接

主题:各位大师:新年好!

帅哥哟,离线,有人找我吗?
jackyfashion
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:682 积分:5304 威望:0 精华:0 注册:2013/10/7 22:27:00
各位大师:新年好!  发帖心情 Post By:2017/2/8 13:34:00 [只看该作者]

各位大师:新年好!

 回到顶部
帅哥哟,离线,有人找我吗?
jackyfashion
  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:682 积分:5304 威望:0 精华:0 注册:2013/10/7 22:27:00
  发帖心情 Post By: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


 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/2/8 14:11:00 [只看该作者]

你的路径是否正确?

 

msgbox(lt & Key)

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


 回到顶部
帅哥哟,离线,有人找我吗?
jackyfashion
  4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:682 积分:5304 威望:0 精华:0 注册:2013/10/7 22:27:00
  发帖心情 Post By:2017/2/8 14:36:00 [只看该作者]

谢谢!!!

 回到顶部