列表视图的列标题不显示VB.Net [英] Listview column Header not displaying VB.Net
本文介绍了列表视图的列标题不显示VB.Net的处理方法,对大家解决问题具有一定的参考价值,需要的朋友们下面随着小编来一起学习吧!
问题描述
我没有收到列标题中的ListView。只有一个项目(0)正在显示未子项。这里是我的code。告诉我什么是错的。 谢谢你在前进。
暗淡PT code为整数= CINT(ChildPatnameTag)
ClearSQl()
的CheckState()
STRSQL =选择T code,从patTests其中p code = tprice&放大器; PT code
strConn.Open()
昏暗TCmdSelect作为新的OleDbCommand(STRSQL,创建失败)
昏暗TReader的作为OleDbDataReader = TCmdSelect.ExecuteReader()
列标题
昏暗的头1,HEADER2作为的columnHeader
头1 =新的columnHeader
header1.TextAlign = HorizontalAlignment.Left
header1.Text =测试
header1.Width = 250
HEADER2 =新的columnHeader
header2.TextAlign = HorizontalAlignment.Left
header2.Text =价格
header2.Width = 50
随着lvwPatTests
.CheckBoxes = TRUE
.GridLines = TRUE
.FullRowSelect = TRUE
.HideSelection =假
.MultiSelect =假
.Columns.Add(测试)
.Columns.Add(价格)
结束与
如果TReader.HasRows然后
做,而TReader.Read
ClearSQl()
STRSQL =从测试选择TNAME其中t code =&放大器; TReader的(T code)
昏暗TCCmdSelect作为新的OleDbCommand(STRSQL,创建失败)
昏暗TCReader作为OleDbDataReader = TCCmdSelect.ExecuteReader()
如果TCReader.HasRows然后
做,而TCReader.Read
对于i = 0到TCReader.FieldCount - 1
创建列表视图项(行)
昏暗的LVI作为新的ListViewItem
第一列可以是ListView项的文本
lvi.Text = TCReader.Item(TNAME)。的ToString
第二列是第一个子项
lvi.SubItems.Add(TReader.Item(tprice))
MSGBOX(TCReader.Item(TNAME)。的ToString)
MSGBOX(TReader.Item(tprice))
添加的ListViewItem到ListView
lvwPatTests.Items.Add(LVI)
下一个
循环
TCCmdSelect.Dispose()
TCReader.Close()
TCReader =无
其他
TCCmdSelect.Dispose()
TCReader.Close()
TCReader =无
结束如果
循环
TReader.Close()
TReader的=无
结束如果
解决方案
您需要更改ListView控件的视图属性设置为详细信息
才能看到的列和子项:
随着lvwPatTests
.View = View.Details
.CheckBoxes = TRUE
.GridLines = TRUE
.FullRowSelect = TRUE
.HideSelection =假
.MultiSelect =假
.Columns.Add(测试)
.Columns.Add(价格)
结束与
I am not getting column Header in listView. only one item(0) is displaying not the sub Item. here is my code. tell me what is wrong in it. Thank you in advance.
Dim PTCode As Integer = CInt(ChildPatnameTag)
ClearSQl()
CheckState()
strSql = "select tCode,tprice from patTests where pCode=" & PTCode
strConn.Open()
Dim TCmdSelect As New OleDbCommand(strSql, strConn)
Dim TReader As OleDbDataReader = TCmdSelect.ExecuteReader()
'Column Header
Dim header1, header2 As ColumnHeader
header1 = New ColumnHeader
header1.TextAlign = HorizontalAlignment.Left
header1.Text = "Test"
header1.Width = 250
header2 = New ColumnHeader
header2.TextAlign = HorizontalAlignment.Left
header2.Text = "Price"
header2.Width = 50
With lvwPatTests
.CheckBoxes = True
.GridLines = True
.FullRowSelect = True
.HideSelection = False
.MultiSelect = False
.Columns.Add("Test")
.Columns.Add("Price")
End With
If TReader.HasRows Then
Do While TReader.Read
ClearSQl()
strSql = "Select tName from tests where tCode=" & TReader("tCode")
Dim TCCmdSelect As New OleDbCommand(strSql, strConn)
Dim TCReader As OleDbDataReader = TCCmdSelect.ExecuteReader()
If TCReader.HasRows Then
Do While TCReader.Read
For i = 0 To TCReader.FieldCount - 1
' Create List View Item (Row)
Dim lvi As New ListViewItem
' First Column can be the listview item's Text
lvi.Text = TCReader.Item("tName").ToString
' Second Column is the first sub item
lvi.SubItems.Add(TReader.Item("tprice"))
MsgBox(TCReader.Item("tName").ToString)
MsgBox(TReader.Item("tprice"))
' Add the ListViewItem to the ListView
lvwPatTests.Items.Add(lvi)
Next
Loop
TCCmdSelect.Dispose()
TCReader.Close()
TCReader = Nothing
Else
TCCmdSelect.Dispose()
TCReader.Close()
TCReader = Nothing
End If
Loop
TReader.Close()
TReader = Nothing
End If
解决方案
You need to change your ListView control's View property to Details
in order to see the columns and subitems:
With lvwPatTests
.View = View.Details
.CheckBoxes = True
.GridLines = True
.FullRowSelect = True
.HideSelection = False
.MultiSelect = False
.Columns.Add("Test")
.Columns.Add("Price")
End With
这篇关于列表视图的列标题不显示VB.Net的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!
查看全文