以下是代碼,均有詳細(xì)注釋

Me.ListView1.View = lvwReport    '設(shè)置成報(bào)表形式
ListView1.GridLines = True
ListView1.FullRowSelect = True '設(shè)置整行選擇

'添加listview1標(biāo)頭、寬度~~~~~~~~~~~~~~~~~~~~~`
With ListView1
.View = lvwReport
.ColumnHeaders.Add = "ID"
.ColumnHeaders.Add = "信息類型"
.ColumnHeaders.Add = "發(fā)生日期"
.ColumnHeaders.Add = "提醒時(shí)間"
.ColumnHeaders.Add = "信息摘要"
.ColumnHeaders.Add = "添加時(shí)間"
.ColumnHeaders.Add = "信息內(nèi)容"
.ColumnHeaders.Add = "完成情況"
'--------------設(shè)置每行寬度
.ColumnHeaders(1).Width = 800
.ColumnHeaders(2).Width = 1200
.ColumnHeaders(3).Width = 1000
.ColumnHeaders(4).Width = 1200
.ColumnHeaders(5).Width = 1500
.ColumnHeaders(6).Width = 2000
.ColumnHeaders(7).Width = 1500
.ColumnHeaders(8).Width = 1500
End With
'添加listview1數(shù)據(jù)~~~~~~~~~~~~~~~~~~~~~~
Dim addlist1 As ListItem
Call connectdata '此處為數(shù)據(jù)庫(kù)的ADO連接過(guò)程,過(guò)程程序在后面
bs.Open "select * from message", rs, 1, 1
Do While Not bs.EOF
Set addlist1 = ListView1.ListItems.Add(, , str(bs.Fields("id"))) '將各項(xiàng)數(shù)據(jù)加入list列表
addlist1.SubItems(1) = IIf(IsNull(bs.Fields("type")), "", bs.Fields("type"))
addlist1.SubItems(2) = IIf(IsNull(bs.Fields("sdate")), "", bs.Fields("sdate"))
addlist1.SubItems(3) = IIf(IsNull(bs.Fields("stime")), "", bs.Fields("stime"))
addlist1.SubItems(4) = IIf(IsNull(bs.Fields("title")), "", bs.Fields("title"))
addlist1.SubItems(5) = IIf(IsNull(bs.Fields("adate")), "", bs.Fields("adate"))
addlist1.SubItems(6) = IIf(IsNull(bs.Fields("cms")), "", bs.Fields("cms"))
addlist1.SubItems(7) = IIf(IsNull(bs.Fields("wms")), "", bs.Fields("wms"))
bs.MoveNext
Loop
bs.Close
rs.Close

附其中數(shù)據(jù)庫(kù)連接數(shù)據(jù):

'*****定義數(shù)據(jù)庫(kù)連接參數(shù)
Public rs As New ADODB.Connection
Public bs As New ADODB.Recordset
Public sql As String '查詢字符串
Public filename As String '數(shù)據(jù)庫(kù)名稱
Public ctrFi '連接字符串

Public Sub connectdata()'連接數(shù)據(jù)庫(kù)過(guò)程,此處為ACCESS數(shù)據(jù)庫(kù)
filename = App.Path + "\" + "honshV1.mdb"
ctrFi = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" & filename
If rs.State = adStateClosed Then
rs.Open ctrFi
Else
rs.Close
End If
End Sub