vb中listview的使用案例.docx

vb中listview的使用案例.docx

ID:51433919

大小:14.03 KB

页数:2页

时间:2020-03-24

vb中listview的使用案例.docx_第1页
vb中listview的使用案例.docx_第2页
资源描述:

《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"

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。