listview的显示项怎么通过拖延改变显示顺序？

Question

Dim itemX As ListItem
    ListView1.ListItems.Clear
    rs.Open "select  * from " + tv1.SelectedItem.Text, conn
    For icol = 0 To rs.Fields.Count - 1
        Set itemX = ListView1.ListItems.Add(, , icol + 1)
        itemX.SubItems(1) = rs.Fields(icol).Name
        itemX.SubItems(2) = rs.Fields(icol).Type
        itemX.SubItems(3) = rs.Fields(icol).DefinedSize
        itemX.SubItems(4) = Iif(rs.Fields(icol).Attributes And adFldIsNullable , "Y", "N")
    Next icol
    rs.Close

Answer 1

如果是想改变每列的顺序,就将ListView1的AllowColumnReorder 属性设为True就可以.Private Sub Form_Load()
ListView1.AllowColumnReorder = True
End Sub