2009. 5. 26. 14:39
### 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
'구 MiniHomepy > Experience' 카테고리의 다른 글
| ASP.NET에서 프로젝트를 새로 고칠 수 없습니다라고 나올때 (0) | 2009.05.26 |
|---|---|
| 날짜검색 쿼리(날짜는 substring안되므로) (0) | 2009.05.26 |
| radiobuttonlist 에서 칸이충분한데도 밑으로 내려가 보일 때 (0) | 2009.05.26 |
2009. 5. 26. 14:39
select *
from dbo.TB_detail_result
where LEFT(CONVERT(varchar, entry_date, 126), 10)
= LEFT(CONVERT(varchar, GETDATE(), 126), 10)
'구 MiniHomepy > Experience' 카테고리의 다른 글
| 리스트뷰 tip1 (0) | 2009.05.26 |
|---|---|
| radiobuttonlist 에서 칸이충분한데도 밑으로 내려가 보일 때 (0) | 2009.05.26 |
| asp.net에서 딴 페이지로 post submit (0) | 2009.05.26 |
2009. 5. 26. 14:39
속성중에 RepeatLayout="Flow" 추가!!!
'구 MiniHomepy > Experience' 카테고리의 다른 글
| 날짜검색 쿼리(날짜는 substring안되므로) (0) | 2009.05.26 |
|---|---|
| asp.net에서 딴 페이지로 post submit (0) | 2009.05.26 |
| 메일보내기 (0) | 2009.05.26 |
