'建立顯示控件
Dim LW As New ListView()
'大小及位置
LW.Bounds = New Rectangle(New Point(6, 40), New Size(522, 227))
'顯示方式
LW.View = View.Details
'顯示網絡線.
LW.GridLines = True
'重新排序.
LW.AllowColumnReorder = True
'選中整行.
LW.FullRowSelect = True
'選擇多項.
LW.MultiSelect = False
'建立標題.
LW.Columns.Add("姓名", 80, HorizontalAlignment.Left)
LW.Columns.Add("編號", 150, HorizontalAlignment.Left)
LW.Columns.Add("身份證號", 150, HorizontalAlignment.Left)
'設立列表高度.
'建立一個圖像.
Dim IL As New ImageList
'設置圖像大小.
IL.ImageSize = New Size(1, 20)
LW.SmallImageList = IL
'將控件添加顯示.
Me.GroupBox1.Controls.Add(LW)
#Region " 查詢操作"
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
Try
If Me.TextBox1.Text.Length > 0 Then
Dim T As String = "Select Top 100 姓名,編號,身份證號 From DaLiYongUsers Where " & _
"編號 Like '%{0}%' Or 姓名 Like '%{1}%' Or 拼音縮寫 Like '%{2}%' Or 電話 Like '%{3}%' Or 手機 Like '%{4}%' Or 身份證號 Like '%{5}%' Or 單位 Like '%{6}%' Or 備註 Like '%{7}%'"
T = String.Format(T, Me.TextBox1.Text, Me.TextBox1.Text, Me.TextBox1.Text, Me.TextBox1.Text, Me.TextBox1.Text, Me.TextBox1.Text, Me.TextBox1.Text, Me.TextBox1.Text)
Dim DT As DataTable = DB.RunSelectTable(T)
If DT.Rows.Count > 0 Then
LW.Items.Clear()
Dim LWI As ListViewItem
Dim B As Boolean = False
For Each R As DataRow In DT.Rows
LWI = New ListViewItem(R.Item("姓名").ToString)
LWI.SubItems.Add(R.Item("編號").ToString)
LWI.SubItems.Add(R.Item("身份證號").ToString)
'隔行顏色.
If B Then
LWI.BackColor = Color.LavenderBlush
End If
B = Not B
'添加到列表.
LW.Items.Add(LWI)
Next
LW.Visible = True
Else
LW.Visible = False
End If
Else
LW.Visible = False
End If
Catch ex As Exception
End Try
End Sub
#End Region