Question

VB Listview控件怎么去掉不需要的列？

VB Listview控件怎么去掉不需要的列？
怎么一连接就把数据库里所有的列都显示出来了？怎么自定义哪些列要显示哪些列不要显示？
这是我的代码：
Private Sub Form_Load()Dim cnn As New ADODB.Connection '建立一个ADO数据连接Dim rs As New ADODB.Recordset '建立一个连接字符串'这个连接串可能根据数据库配置的不同而不同On Error GoTo CuoWu '启用/激活 错误捕捉功能 cuowu是在后面，发生错误时执行的地方cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\01.动态系统文件\01.我的文档\01.我的数据\彩票数据库.mdb;Persist Security Info=False" '建立数据库连接cnn.Open '打开数据库rs.Open "select * from 数据表", cnn '打开数据库中的标“数据表”
'【listview列表控件】If rs.EOF Then Exit Sub '网格行ListView1.GridLines = True '显示网格线/采用报表显示模式ListView1.FullRowSelect = True '允许选择整行ListView1.View = lvwReport '设置列表的显示方式为列表ListView1.MultiSelect = True '按住Ctrl可以选择多个项目,False不允许ListView1.Checkboxes = False '显示复选框ListView1.ListItems.Clear '清空列表ListView1.ColumnHeaders.Clear '清空列表头
运行如下：

这些是不要显示的列

加上这些代码也不行，照样在后面显示！
With Me.ListView1.ColumnHeaders.Add 1, , "序号", 1000.ColumnHeaders.Add 2, , "性别", 500.ColumnHeaders.Add 3, , "职称", 1500.ColumnHeaders.Add 4, , "电话", 1000End With

请高手指教





Answer 1

加上下面的代码：
ListView1.ColumnHeaders.Item(1).Width = 0 '< ---第1列宽设置为0
ListView1.ColumnHeaders.Item(2).Width = 1000 '< ---第2列宽
ListView1.ColumnHeaders.Item(3).Width = 500 ' < ---第3列宽
ListView1.ColumnHeaders.Item(4).Width = 1500 '< ---第4列宽
ListView1.ColumnHeaders.Item(5).Width = 1000 '< ---第5列宽
ListView1.ColumnHeaders.Item(6).Width = 0 '< ---第6列宽设置为0
ListView1.ColumnHeaders.Item(7).Width = 0 '< ---第7列宽设置为0
请采纳，谢谢！