初学者提问(关于listview)

Question

LISTVIEW的列表头实在程序里面用代码写入的,我记得不是很清楚,如果不是的话,则是通过访问RECORDSET纪录集,直接得到,并写入列标头里面的,你查1下MSDN,只有这2中方法做成列表头

Answer 1

    lvwQZL.View = lvwReport
    With tvwQZL
        .Sorted = True
        Set mNode = .Nodes.Add()
        .LabelEdit = False
        .LineStyle = tvwTreeLines
    End With    With mNode
        .Text = "开始"
        .Tag = "START"
    End With    Set rsQ = New Recordset
    rsQ.Open "select jb_id,jh from jb", adoZLS, adOpenStatic, adLockReadOnly
    While Not rsQ.EOF
        Set mNode = tvwQZL.Nodes.Add(1, tvwChild, rsQ!jb_id & " ID", rsQ!jh)
        mNode.Tag = "JB"
        rsQ.MoveNext
    Wend
    tvwQZL.Nodes(1).Expanded = True

Answer 2

Private Sub Form_Load()
ListView.View = lvwReport
ListView.ColumnHeaders.Add , , "板块名称", lstboard.Width / 3
ListView.ColumnHeaders.Add , , "板块属性", lstboard.Width / 3
ListView.ColumnHeaders.Add , , "板块编号", lstboard.Width / 3
end sub
 记得给分哦

Answer 3

Private Sub Form_Load()
dim clm as columnHeader
ListView.View = lvwReport
set clm=ListView.ColumnHeaders.Add , , "名称1", width1
set clm=ListView.ColumnHeaders.Add , , "名称2", width2
set clm=ListView.ColumnHeaders.Add , , "名称3", width3
end sub
 

Answer 4

同意楼上的。to x_bigman(草胚子)　
你的程序只有一句是LISTVIEW，其他都是TREEVIEW的。

Answer 5

Private Sub Form_Load()
ListView1.View = lvwReport
ListView1.ColumnHeaders.Add , , "Name1", 1000
ListView1.ColumnHeaders.Add , , "Name2", 1000
ListView1.ColumnHeaders.Add , , "Name3", 1000
End Sub