vb中listview的使用案例.docx

DimcnAsADODB.Connection
DimrsAsADODB.Recordset
'定义一个连接对象和一个查询返回结果集
Setcn=NewADODB.Connection
Setrs=NewADODB.Recordset
'创建两个对象
cn.ConnectionString="driver=SQLServer;server=IAN-PC;uid=sa;pwd=kingdee;database=CRM"
cn.Open

DimsqlAsString
sql="select*fromian_1"
rs.Opensql,cn

ListView1.View=lvwReport
ListView1.ColumnHeaders.Add,,"选择",1000
ListView1.ColumnHeaders.Add,,rs(0).Name,1000
ListView1.ColumnHeaders.Add,,rs(1).Name,1000
ListView1.ColumnHeaders.Add,,rs(2).Name,1000
ListView1.ColumnHeaders.Add,,rs(3).Name,1000
ListView1.ColumnHeaders.Add,,rs(4).Name,1000
'表头名称

ListView1.GridLines=True'显示网格
ListView1.Checkboxes=True'显示复选框
'ListView1.FullRowSelect=True整行记录全选上

DimaAsInteger
a=rs.RecordCount+1
'MsgBoxa
DimxAsInteger

x=1
'取得rs的记录集
WhileNotrs.EOFAndNotrs.BOF'如果记录集没有读完继续读
ListView1.ListItems.Add,,x'第一行选择复选框
ListView1.ListItems(x).SubItems(1)=rs(0).Value
ListView1.ListItems(x).SubItems(2)=rs(1).Value
ListView1.ListItems(x).SubItems(3)=rs(2).Value
ListView1.ListItems(x).SubItems(4)=rs(3).Value
ListView1.ListItems(x).SubItems(5)=rs(4).Value

x=x+1
rs.MoveNext'下一行
Wend

MsgBox"dd"