ListView Click Event Dim LoadQuery As New Thread(AddressOf LoadToAnotherListView) LoadQuery.IsBackground = True LoadQuery.Start() CheckForIllegalCrossThreadCalls = False
Public Sub LoadToAnotherListView Dim count As Integer = 0 Using con As New SqlClient.SqlConnection(ConnectionString) con.Open() Dim Sql As String = "SELECT FirstName,LastName,MiddleName FROM contacts WHERE Gender = @Gender AND Age = @Age" Using cmd As New SqlClient.SqlCommand(Sql, con) cmd.Parameters.AddWithValue("@Gender", ListView1.FocusedItem.Text) cmd.Parameters.AddWithValue("@Age", ListView1.FocusedItem.SubItems(2).Text) cmd.CommandTimeout = 3600 cmd.CommandType = CommandType.Text Using DataRead As SqlClient.SqlDataReader = cmd.ExecuteReader If DataRead.HasRows Then lblLoading.Visible = False While DataRead.Read count += 1 ListView2.Items.Add(Trim(DataRead(0).ToString)) ListView2.Items(ListView2.Items.Count - 1).SubItems.Add(Trim(DataRead(1).ToString)) ListView2.Items(ListView2.Items.Count - 1).SubItems.Add(Trim(Format(DataRead(2), "yyyy-MM-dd"))) End While lblItem.Visible = True lblItem.Text = countitem & " Item/s" End If DataRead.Close() End Using End Using con.Close() End Using btnPrint.Enabled = ListView2.Items.Count > 1 End Sub
ListView2
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)