日韩无码专区无码一级三级片|91人人爱网站中日韩无码电影|厨房大战丰满熟妇|AV高清无码在线免费观看|另类AV日韩少妇熟女|中文日本大黄一级黄色片|色情在线视频免费|亚洲成人特黄a片|黄片wwwav色图欧美|欧亚乱色一区二区三区

RELATEED CONSULTING
相關(guān)咨詢
選擇下列產(chǎn)品馬上在線溝通
服務(wù)時(shí)間：8:30-17:00
你可能遇到了下面的問(wèn)題
關(guān)閉右側(cè)工具欄

新聞中心

這里有您想知道的互聯(lián)網(wǎng)營(yíng)銷解決方案
VB.NETLISTVIEW實(shí)現(xiàn)功能簡(jiǎn)述

在VB.NET開發(fā)框架內(nèi)，同樣具有很多控件供開發(fā)人員使用，方便的實(shí)現(xiàn)各種圖形界面和程序功能需求。比如我們?cè)谶@里為大家介紹的VB.NET LISTVIEW就是一款能夠幫助我們實(shí)現(xiàn)排序的開發(fā)控件。#t#

創(chuàng)新互聯(lián)是專業(yè)的陽(yáng)東網(wǎng)站建設(shè)公司，陽(yáng)東接單;提供成都網(wǎng)站建設(shè)、成都做網(wǎng)站,網(wǎng)頁(yè)設(shè)計(jì),網(wǎng)站設(shè)計(jì),建網(wǎng)站,PHP網(wǎng)站建設(shè)等專業(yè)做網(wǎng)站服務(wù);采用PHP框架,可快速的進(jìn)行陽(yáng)東網(wǎng)站開發(fā)網(wǎng)頁(yè)制作和功能擴(kuò)展;專業(yè)做搜索引擎喜愛(ài)的網(wǎng)站,專業(yè)的做網(wǎng)站團(tuán)隊(duì),希望更多企業(yè)前來(lái)合作!

控件:

TEXTBOX :1個(gè) Name:txtJobNo

BUTTON: 2個(gè) Name:btnFilter,btnShowAll

LISTVIEW : 1個(gè) Name:lstvwJobNo Columns:JobNo,ContainerID,CartonID,PO,Style,Color,Size,ShipMent,Factory Sorting:none

VB.NET LISTVIEW編寫源代碼:

  1. Imports System.Data.SqlClient  
  2. Dim con As New SqlConnection  
  3. Dim varSQL As String  
  4. Dim r As Integer  
  5. Dim conString As String =
    "data source=127.0.0.1;initial 
    catalog=mydb; uid=sa;password=123"     

'定義默認(rèn)排序變量

 
 
 
    
  
  
  
  1. Dim mySort As String = "ASC" 
    2.

'VB.NET LISTVIEW定義默認(rèn)字段變量

 
 
 
    
  
  
  
  1. Dim myField As String 
    = "JOB.JOBNO" 
    2.

'過(guò)濾指定條件的記錄

 
 
 
    
  
  
  
  1. Private Sub btnFilter_Click(ByVal 
    sender As System.Object, ByVal e 
    As System.EventArgs) Handles 
    btnFilter.Click  
    2. 
  
  
  
  2. Try  
    3. 
  
  
  
  3. Dim fJobNo As String = "" 
    4. 
  
  
  
  4. fJobNo = txtJobNo.Text.Trim()  
    5. 
  
  
  
  5. r = List_dgJobNo(fJobNo)  
    6. 
  
  
  
  6. Catch ex As Exception  
    7. 
  
  
  
  7. MessageBox.Show(ex.ToString)  
    8. 
  
  
  
  8. Finally  
    9. 
  
  
  
  9. If con.State = ConnectionState.
    Open Then  
    10. 
  
  
  
  10. con.Close()  
    11. 
  
  
  
  11. End If  
    12. 
  
  
  
  12. End Try  
    13. 
  
  
  
  13. End Sub 
    14.

'VB.NET LISTVIEW顯示所有記錄

 
 
 
    
  
  
  
  1. Private Sub btnShowAll_Click
    (ByVal sender As System.Object, 
    ByVal e As System.EventArgs) 
    Handles btnShowAll.Click  
    2. 
  
  
  
  2. List_dgJobNo("")  
    3. 
  
  
  
  3. End Sub 
    4.

'函數(shù)功能：將讀取出來(lái)的數(shù)據(jù)寫入lstvwJovNo的表格中
'函數(shù)名稱：List_dgJobNo,調(diào)用格式：List_dgJobNo("10022")，List_dgJobNo("")
'參 數(shù)：fJobNo，要查詢的工作號(hào)JOBNO，為空時(shí)則查詢所有的
'編 寫 者：SD
'日 期：2005-9-23
'轉(zhuǎn)載請(qǐng)保留此信息

 
 
 
    
  
  
  
  1. Private Function List_dgJobNo(ByVal 
    fJobNo As String) As Integer  
    2. 
  
  
  
  2. Try  
    3. 
  
  
  
  3. Cursor.Current = Cursors.WaitCursor  
    4. 
  
  
  
  4. lstvwJobNo.Items.Clear()  
    5. 
  
  
  
  5. con = New SqlConnection(conString)  
    6. 
  
  
  
  6. Dim cmd As SqlCommand  
    7. 
  
  
  
  7. Dim rd As SqlDataReader  
    8. 
  
  
  
  8. If fJobNo.Length > 0 Then  
    9. 
  
  
  
  9. varSQL = "SELECT JOB.JOBNO,CONTAINERNO,
    CARTONFROM,PO,STYLE,COLOR,CARTONSIZE,
    SHIPMENT,FACTORY FROM JOB,JOB_LINE 
    WHERE JOB.JOBNO=JOB_LINE.JOBNO AND JOB.
    JOBNO LIKE '%" & fJobNo & "%' "  
    10. 
  
  
  
  10. Else  
    11. 
  
  
  
  11. varSQL = "SELECT JOB.JOBNO,CONTAINERNO,
    CARTONFROM,PO,STYLE,COLOR,CARTONSIZE,
    SHIPMENT,FACTORY FROM JOB,JOB_LINE 
    WHERE JOB.JOBNO=JOB_LINE.JOBNO " 
    12. 
  
  
  
  12. End If  
    13. 
  
  
  
  13. varSQLvarSQL = varSQL & "ORDER BY " 
    & myField & " " & mySort & ";"  
    14. 
  
  
  
  14. cmd = New SqlCommand(varSQL, con)  
    15. 
  
  
  
  15. rd = cmd.ExecuteReader  
    16. 
  
  
  
  16. Dim lsv As ListViewItem  
    17. 
  
  
  
  17. While rd.Read  
    18. 
  
  
  
  18. lsv = New ListViewItem(rd("JOBNO").ToString)  
    19. 
  
  
  
  19. 'lsv.Checked = True 
    20. 
  
  
  
  20. lsv.SubItems.Add(rd("ContainerNo").ToString)  
    21. 
  
  
  
  21. lsv.SubItems.Add(rd("CartonFrom").ToString)  
    22. 
  
  
  
  22. lsv.SubItems.Add(rd("PO").ToString)  
    23. 
  
  
  
  23. lsv.SubItems.Add(rd("Style").ToString)  
    24. 
  
  
  
  24. lsv.SubItems.Add(rd("Color").ToString)  
    25. 
  
  
  
  25. lsv.SubItems.Add(rd("CartonSize").ToString)  
    26. 
  
  
  
  26. lsv.SubItems.Add(rd("ShipMent").ToString)  
    27. 
  
  
  
  27. lsv.SubItems.Add(rd("Factory").ToString)  
    28. 
  
  
  
  28. lstvwJobNo.Items.Add(lsv)  
    29. 
  
  
  
  29. End While  
    30. 
  
  
  
  30. Cursor.Current = Cursors.Default  
    31. 
  
  
  
  31. Return List_dgJobNo = 1 
    32. 
  
  
  
  32. Catch ex As Exception  
    33. 
  
  
  
  33. MessageBox.Show(ex.ToString)  
    34. 
  
  
  
  34. Return List_dgJobNo = -1  
    35. 
  
  
  
  35. Finally  
    36. 
  
  
  
  36. If con.State = ConnectionState.Open Then  
    37. 
  
  
  
  37. con.Close()  
    38. 
  
  
  
  38. End If  
    39. 
  
  
  
  39. End Try  
    40. 
  
  
  
  40. End Function 
    41.

'VB.NET LISTVIEW獲得排序的字段,并顯示排序標(biāo)記

 
 
 
    
  
  
  
  1. Private Sub lstvwJobNo_ColumnClick
    (ByVal sender As Object, ByVal e As 
    System.Windows.Forms.ColumnClickEventArgs) 
    Handles lstvwJobNo.ColumnClick  
    2. 
  
  
  
  2. Select Case e.Column.ToString  
    3. 
  
  
  
  3. Case 0  
    4. 
  
  
  
  4. myField = "JOB.JOBNO" 
    5. 
  
  
  
  5. Case 1  
    6. 
  
  
  
  6. myField = "CONTAINERNO" 
    7. 
  
  
  
  7. Case 2  
    8. 
  
  
  
  8. myField = "CARTONFROM" 
    9. 
  
  
  
  9. Case 3  
    10. 
  
  
  
  10. myField = "PO" 
    11. 
  
  
  
  11. Case 4  
    12. 
  
  
  
  12. myField = "STYLE" 
    13. 
  
  
  
  13. Case 5  
    14. 
  
  
  
  14. myField = "COLOR" 
    15. 
  
  
  
  15. Case 6  
    16. 
  
  
  
  16. myField = "CARTONSIZE" 
    17. 
  
  
  
  17. Case 7  
    18. 
  
  
  
  18. myField = "SHIPMENT" 
    19. 
  
  
  
  19. Case 8  
    20. 
  
  
  
  20. myField = "FACTORY" 
    21. 
  
  
  
  21. End Select  
    22. 
  
  
  
  22. Dim i As Integer  
    23. 
  
  
  
  23. For i = 0 To 8  
    24. 
  
  
  
  24. lstvwJobNo.Columns(i).Text = 
    lstvwJobNo.Columns(i).Text.Replace
    (" ▼", "").Replace(" ▲", "")  
    25. 
  
  
  
  25. Next  
    26. 
  
  
  
  26. If mySort = "ASC" Then  
    27. 
  
  
  
  27. lstvwJobNo.Columns(e.Column.ToString)
    .Text = lstvwJobNo.Columns(e.Column.
    ToString).Text & " ▼"  
    28. 
  
  
  
  28. mySort = "DESC" 
    29. 
  
  
  
  29. Else  
    30. 
  
  
  
  30. mySort = "ASC" 
    31. 
  
  
  
  31. lstvwJobNo.Columns(e.Column.ToString).
    Text = lstvwJobNo.Columns(e.Column.
    ToString).Text & " ▲"  
    32. 
  
  
  
  32. End If  
    33. 
  
  
  
  33. Dim fJobNo As String = "" 
    34. 
  
  
  
  34. fJobNo = txtJobNo.Text.Trim()  
    35. 
  
  
  
  35. r = List_dgJobNo(fJobNo)  
    36. 
  
  
  
  36. lstvwJobNo.Refresh()  
    37. 
  
  
  
  37. End Sub 
    38.

VB.NET LISTVIEW的相關(guān)操作方法和實(shí)現(xiàn)的功能就為大家介紹到這里。


標(biāo)題名稱：VB.NETLISTVIEW實(shí)現(xiàn)功能簡(jiǎn)述
分享網(wǎng)址：http://www.5511xx.com/article/cogpehs.html