'建立显示控件

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