请教大师: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