我没有在listView中获得列标题。只有一个项目(0)不显示子项目。这是我的代码。告诉我它有什么问题。 提前谢谢。
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
答案 0 :(得分:10)
您需要将ListView控件的View属性更改为Details
才能查看列和子项:
With lvwPatTests
.View = View.Details
.CheckBoxes = True
.GridLines = True
.FullRowSelect = True
.HideSelection = False
.MultiSelect = False
.Columns.Add("Test")
.Columns.Add("Price")
End With
答案 1 :(得分:1)
你已经拥有了这些物品。只需传递它们:
With lvwPatTests
.CheckBoxes = True
.GridLines = True
.FullRowSelect = True
.HideSelection = False
.MultiSelect = False
.Columns.Add(header1)
.Columns.Add(header2)
End With