리스트뷰 tip1

### 1.리스트 뷰에서 (detail형식) 에서 아이템 삽입방법 .서브아이템


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click



listview.Clear()

listview.Columns.Add("품명", 155, HorizontalAlignment.Center)
listview.Columns.Add("제조사", 140, HorizontalAlignment.Center)
listview.Columns.Add("규격", 110, HorizontalAlignment.Center)
listview.Columns.Add("code", 0, HorizontalAlignment.Center)


Dim sqlQuery As String
Dim wheresql As String


If txt_search.Text.Trim <> "" Then
wheresql = " AND dbo_TB_A005.name like '%" + txt_search.Text + "%'"
End If


sqlQuery = "SELECT "
sqlQuery += "dbo_TB_A005.CODE "
sqlQuery += ", dbo_TB_A005.name "
sqlQuery += ", dbo_TB_A005.MODEL "
sqlQuery += ", dbo_TB_A005.STD1 "
sqlQuery += ", dbo_TB_A005.STD2 "
sqlQuery += ", dbo_TB_A005.A004_CODE "
'sqlQuery += ", dbo_TB_A004.COMPANY A004NAME "
sqlQuery += ", dbo_TB_A004.COMPANY "
sqlQuery += "from "
sqlQuery += "TB_A005 dbo_TB_A005 "
sqlQuery += ", TB_A004 dbo_TB_A004 "
sqlQuery += " where dbo_TB_A005.A004_CODE = dbo_TB_A004.CODE"
sqlQuery += wheresql



Dim rs As SqlDataReader
Dim cmd As SqlCommand
Dim temp As String

cmd = New SqlCommand(sqlQuery, Dbconn)
rs = cmd.ExecuteReader()

While (rs.Read())

Dim lvItem As New ListViewItem
Dim lvSubItem As New ListViewItem.ListViewSubItem

lvItem.Text = rs("name")

lvSubItem.Text = rs("COMPANY")
lvItem.SubItems.Add(rs("COMPANY"))

If IsDBNull(rs("STD1")) Then
lvSubItem.Text = " "
lvItem.SubItems.Add(" ")
Else
lvSubItem.Text = rs("STD1")
lvItem.SubItems.Add(rs("STD1"))

End If

lvSubItem.Text = rs("CODE")
lvItem.SubItems.Add(rs("CODE"))


listview.Items.Add(lvItem)

End While


rs.Close()
cmd = Nothing
rs = Nothing

End Sub

### 2. 선택한 그 줄의 아이템 내용 가져오기.


Private Sub listview_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles listview.SelectedIndexChanged

Dim item As ListViewItem

For Each item In Me.listview.SelectedItems

PUB_A005_NAME = listview.SelectedItems.Item(0).Text
PUB_A005_CODE = listview.SelectedItems.Item(0).SubItems(3).Text
'MsgBox("PUB_A005_NAME:" & PUB_A005_NAME & " PUB_A005_code:" & PUB_A005_CODE)
Next



End Sub