主题：ListView的问题

请问ListView如何根据编号列排序啊

 生成的时候，先排序，后一个一个的添加，不就行了？

 

 

Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")
lvw.View = ViewMode.Details
lvw.Images.AddSmallImage("Man", "Man.ico") '添加代表男性的图标
lvw.Images.AddSmallImage("Woman", "Woman.ico") '添加代表女性的图标
lvw.Images.AddSmallImage("mo", "user_silhouette.png") '添加代表女性的图标
lvw.GridLines = True

Dim cls() As String = {"员工编号","员工姓名","所在部门","职务","性别","原籍地址"} '定义列名
Dim wds() As String = {100,80,80,90,40,135} '定义列宽

For i As Integer = 0 To  cls.Length - 1  '增加列
    Dim c As WinForm.ListViewColumn = lvw.Columns.Add()
    c.Text = cls(i) '指定列标题
    c.Name = cls(i) '指定列名 
    c.Width = wds(i) '指定列宽
Next

Tables("员工信息").Sort = "员工编号"
For Each dr As DataRow In DataTables("员工信息").DataRows '从数据表中提取数据

    Dim vr As  WinForm.ListViewRow =  lvw.Rows.Add() '增加一行

    For Each cl As String In cls '逐列取值

        vr(cl) = dr(cl)
    Next
    If dr("性别") = "男" Then '设置分组
        vr.ImageKey = "Man"
    Else
       If dr("性别") = "女" Then '设置分组
        vr.ImageKey = "Woman"
    Else
        vr.ImageKey = "MO"
    End If
    End If

    vr.Tag= dr '将DataRow赋值给ListViewRow的Tag属性,将二者联系起来

Next
lvw.ResumeRedraw() '恢复绘制

 

 

不知道加哪里哦

For Each dr As DataRow In DataTables("员工信息").DataRows

 

改为：

 

For Each dr As DataRow In DataTables("员工信息").Select(""，“排序列”)

 

 

参考：

 

http://www.foxtable.com/help/topics/0400.htm

http://www.foxtable.com/help/topics/2382.htm

 

 

Select是最常用的方法，务必掌握