Im using this code !

con.Open()
cmd = New OleDbCommand("select * from RoomTypeA", con)
conreader = cmd.ExecuteReader

Do While conreader.Read

If conreader.Item("TimeEnd") = Me.TextBox6.Text Then

Me.RTypeListA.Items(0).Selected = True
Me.RTypeListA.Select()

End If

Loop
cmd.Dispose()
con.Close()
conreader.Close()

i want to select the item in listview that has the same TimeEnd with textbox6..
this code works properly but the onet that has been select is the top item in list but
the item that should be selected is on the the third line....


please help me to solve this....

See if this helps to locate and select item in ListView.

For Each itm As ListViewItem In ListView1.Items '// loop thru all items.
            If itm.Text = TextBox1.Text Then
                itm.Selected = True '// select.
                itm.EnsureVisible() '// make sure item is visible.
                Exit For '// exit loop since item located.
            End If
        Next

Edited 5 Years Ago by codeorder: n/a

To codeorder :

I tried it but it wont work ...
please help me ... ill appreciate it much...

Does your ListView have Columns and if so, which column would Me.TextBox6.Text have to be compared to?

yes it have coluomns ...

ahmm. in list it starts counting in 0 so the column would be at 5..

Using my previously posted code, replace If itm.Text = TextBox1.Text Then with If itm.SubItems(6).Text = TextBox1.Text Then , or whichever .SubItems(#) is related to the specific column.

hehe ... now i got it .. its just there is a wrong part in your code
but it really helps me a lot... thanks code order..

using your code

For Each itm As ListViewItem In ListView1.Items
If itm.Text = TextBox1.Text Then
itm.Selected = True
itm.EnsureVisible()
Exit For ' I remove this part in the code
End If
Next

i have just remove Exit For ...
as what i have understand after it reads it exits directly ...
so in order to let it read until the end of data ...
i remove the Exit For

This question has already been answered. Start a new discussion instead.