Why my coding wont work ?????

[ninjaX]

For TempLooping = 0 To TempStoreListview3 - 1

If ListView3.Items(TempLooping).SubItems(1).Text.Equals(Year_ComboBox.Text) Then

ListView3.Items(TempLooping).SubItems(PositionOfTempClient).BackColor = Color.Cyan

End If

Next


Why my coding wont work ?????

[CyberHawke]

Well, I was going to try to fix this but there are too many unknowns...
What is the datatype for TimeLooping
What is the datatype for TempStoreListView3 and what is it's value
What is the datatype for PositionOfTempClient and what is it's value

[mendhak]

And more importantly, what do you mean by "not working"? Error message or unexpected behavior?

[ninjaX]

i cannot help me to highlight the row of the item that i add in

i use the for loop to help me to search which row and column that i need to add in the data in the listview

and after i add in the data, the list view will highlight the row and column that i have addin the data

[archspeed]

For TempLooping = 0 To TempStoreListview3 - 1

If ListView3.Items(TempLooping).SubItems(1).Text.Equals(Year_ComboBox.Text) Then

ListView3.Items(TempLooping).SubItems(PositionOfTempClient).BackColor = Color.Cyan

End If

Next

I dont know but it looks like you're only testing one subitem. Take a look at your If statement, shouldn't it be:

If ListView3.Items(TempLooping).SubItems(PositionOfTempClient).Text.Equals(Year_ComboBox.Text) Then

instead of SubItems(1) ?

[brown monkey]

i think this is what you are looking for.

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      Dim cn As New SqlConnection()
      cn.ConnectionString = "integrated security=true;initial catalog=northwind"
      cn.Open()
 
      Dim cmdtext As String = "select * from categories"
      Dim cm As New SqlCommand(cmdtext, cn)
      Dim dr As SqlDataReader = cm.ExecuteReader
      Dim i As Integer = 0
      While dr.Read
         ListView1.Items.Add(dr.GetValue(0))
         ListView1.Items(i).SubItems.Add(dr.GetValue(1))
         ListView1.Items(i).SubItems.Add(dr.GetValue(2))
         i += 1
      End While
 
      brown_monkey_look("Cheeses")
   End Sub
 
   Sub brown_monkey_look(ByVal s As String)
      Dim i As Integer
      For i = 0 To ListView1.Items.Count - 1
         Dim li As ListViewItem = ListView1.Items(i)
         li.UseItemStyleForSubItems = False
         Dim si As ListViewItem.ListViewSubItem
         For Each si In li.SubItems
            If si.Text.Equals(s) Then
               si.BackColor = Color.Brown ' monkey 
            End If
         Next
      Next
   End Sub

hope i don't bark the wrong tree. though monkeys don't bark...

[CyberHawke]

That's some pretty creative coding, how did you gleen all that from the information provided in these posts??

[brown monkey]

he said highlighting subitem???