列表视图的列标题不显示VB.Net [英] Listview column Header not displaying 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 = Horizo​​ntalAlignment.Left
    header1.Text =测试
    header1.Width = 250
    HEADER2 =新的columnHeader
    header2.TextAlign = Horizo​​ntalAlignment.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屋！