Foxtable(狐表)用户栏目专家坐堂 → 请大师指教!谢谢!


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

主题:请大师指教!谢谢!

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


加好友 发短信
等级:三尾狐 帖子:668 积分:5190 威望:0 精华:0 注册:2013/10/7 22:27:00
请大师指教!谢谢!  发帖心情 Post By:2017/3/10 23:53:00 [显示全部帖子]


请教大师:ListView,大图标模式可以按降序排序吗?谢谢!!!
Dim tt As Table = Tables("yywrkhtc")
Dim lt = tt(0)("khtc") & "\"
Dim lvw As WinForm.ListView = e.Sender
Dim dr As DataRow = DataTables("qrymyf").dataRows(e.Index) '根据行位置从数据表中取得对应的DataRow
Dim Key As String = dr("ltsu")
lvw.Images.LargeSize = New Size(120,160)
lvw.Images.AddImage(Key,lt & Key & ".",lt &  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)
    End Select
Next

 回到顶部