vb中listview的使用案例.docx

《vb中listview的使用案例.docx》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、DimcnAsADODB.ConnectionDimrsAsADODB.Recordset'定义一个连接对象和一个查询返回结果集Setcn=NewADODB.ConnectionSetrs=NewADODB.Recordset'创建两个对象cn.ConnectionString="driver=SQLServer;server=IAN-PC;uid=sa;pwd=kingdee;database=CRM"cn.OpenDimsqlAsStringsql="select*fromian_1"rs.Opensql,cnListView1.View=lvwRe

2、portListView1.ColumnHeaders.Add,,"选择",1000ListView1.ColumnHeaders.Add,,rs(0).Name,1000ListView1.ColumnHeaders.Add,,rs(1).Name,1000ListView1.ColumnHeaders.Add,,rs(2).Name,1000ListView1.ColumnHeaders.Add,,rs(3).Name,1000ListView1.ColumnHeaders.Add,,rs(4).Name,1000'表头名称ListView1.Gri

3、dLines=True'显示网格ListView1.Checkboxes=True'显示复选框'ListView1.FullRowSelect=True整行记录全选上DimaAsIntegera=rs.RecordCount+1'MsgBoxaDimxAsIntegerx=1'取得rs的记录集WhileNotrs.EOFAndNotrs.BOF'如果记录集没有读完继续读ListView1.ListItems.Add,,x'第一行选择复选框ListView1.ListItems(x).SubItems(1)=rs(0).ValueListView1.Lis

4、tItems(x).SubItems(2)=rs(1).ValueListView1.ListItems(x).SubItems(3)=rs(2).ValueListView1.ListItems(x).SubItems(4)=rs(3).ValueListView1.ListItems(x).SubItems(5)=rs(4).Valuex=x+1rs.MoveNext'下一行WendMsgBox"dd"