求LISTVIEW的问题

Question

我想要使用LISTVIEW来显示一个如下样式:课程编号   课程名称    课程类别
001         教育史      必修
...         ......       ...是利用ADO读出数据显示在这个LISTVIEW中怎么才能做到呢?

Answer 1

先建表头：
With lsw.ColumnHeaders
        .Add , , "课程编号", 660
        .Add , , "课程名称", 1900, 2
        .Add , , "课程类别", 660, 2
End With再读入：
    Dim Rs As New ADODB.Recordset
    Dim mItem As ListItem
    lsw.ListItems.Clear
    Rs.Open "SELECT * FROM Table", CnnDB, adOpenKeyset, adLockOptimistic, adCmdText
    If Rs.EOF And Rs.BOF Then
    Else
        Do Until Rs.EOF
            Set mItem = lsw.ListItems.Add(, , Rs("课程编号"))
            mItem.SubItems(1) = deNull(Rs("课程名称"))
            mItem.SubItems(2) = deNull(Rs("课程类别"))
            Rs.MoveNext
        Loop
    End If
    Rs.Close
    Set Rs = Nothing

Answer 2

denull是我写的一个去空的函数，你去掉它就行了。

Answer 3

谢谢了，但是我想置其为不可修改该怎么做啊？我用了以下代码都不行，麻烦您再帮我看看好吗？LV1.View = lvwReport
LV1.LabelEdit = False
LV1.FullRowSelect = True
LV1.Checkboxes = True