预览加载中，请您耐心等待几秒...

vb中listview的使用案例.docx

预览
1/2
2/2

在线预览结束，喜欢就下载吧，查找使用更方便

下载提示 文本预览

如果您无法下载资料，请参考说明：

1、部分资料下载需要金币，请确保您的账户上有足够的金币

2、已购买过的文档，再次下载不重复扣费

3、资料包下载后请先用软件解压，在使用对应软件打开

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"