您 好!大师:

这是我的"ListView" 代码, 在显示图标是降序,请大师指教! 谢谢!!!

Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")
lvw.StopRedraw
lvw.View = ViewMode.LargeIcon \'显示模式为详细内容
lvw.GridLines = False \'显示网格线
lvw.MultiSelect = False  \'禁止选择多行
Dim cls() As String = {"ffikgn","kkth","ptyn"}
Dim wds() As Integer = {70,70,70}  \'定义列宽
For i As Integer = 0 To  cls.Length - 1
    Dim c As WinForm.ListViewColumn = lvw.Columns.Add()
    c.Name = cls(i)  \'指定列名
    c.Text = cls(i) \'指定列标题
    c.Width = wds(i)  \'指定列宽
Next
lvw.Columns("ffikgn").Text = "款号"
lvw.Columns("kkth").Text = "品牌"
lvw.Columns("ptyn").Text = "客户"
lvw.VirtualMode = True  \'以虚拟模式显示
lvw.VirtualListSize = Tables("qrymyf").Rows.count
lvw.ResumeRedraw

这是"ListView"图标代码:

If Tables("qrymyf").Rows.Count = 0 Then
    Return
End If
If Tables("qrymyf").current.IsNull("ltsu") = False Then
   \' Tables("qrymyf").Sort = "ltsu DESC"
    Dim tt As Table = Tables("yywrkhtc")
    Dim lt = tt(0)("khtc") & "\\"
    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(100,150)
    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)
                e.Row.ToolTipText = "设 计 师: " & dr("ymyfjgm") 
                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
End If