searching array values in another array

[karthikeyan]

hi, i have retreive my database values and stored in arrays ie i am retreiving worked dates ans stored the retreived dates in one array named as arr1.then i have some dates in another array named as arr2.so i want to
check whether arr2 dates are present in arr1 array,if present means i need to show the dates, please tel me how to do and please give me sample coding

[tommygrayson]

hi, i have retreive my database values and stored in arrays ie i am retreiving worked dates ans stored the retreived dates in one array named as arr1.then i have some dates in another array named as arr2.so i want to
check whether arr2 dates are present in arr1 array,if present means i need to show the dates, please tel me how to do and please give me sample coding

I don't know why you want to store your database query result in an array rather than in a recordset but anyway try this:

Dim ForCounter as Integer
Dim ForCounter2 as Integer
For ForCounter = 0 to Ubound(arr1).Count - 1
     For ForCounter2 = 0 Ubound(arr2).Count - 1
          If arr1(ForCounter) = arr2(ForCounter2) Then
               'Dates Matched wohoo
          Else
          End If
     Next
Next

Hope this helps you

[karthikeyan]

hi tommygrayson thanks a lot nice reply

[jmcilhinney]

For Each dt As Date In arr1
    If arr2.IndexOf(dt) <> -1 Then
        MessageBox.Show(dt.ToString() & " is contained in both arrays.")
    End If
Next dt

[karthikeyan]

hi jmcilhinney,

if i use this it gives error:
over load resolution failed becos no accssible 'IndexOf' accepts this no of arguments

For Each dt As Date In arr1
If arr2.IndexOf(dt) <> -1 Then
MessageBox.Show(dt.ToString() & " is contained in both arrays.")
End If
Next dt

give me sugestion to recover that error please

[jmcilhinney]

Ah, sorry. That's what comes from typing straight into the forum rather than pasting from the IDE. This:

arr2.IndexOf(dt)

should be this:

Array.IndexOf(arr2, dt)

[karthikeyan]

hi jmcilhinney,nice very nice,i got it,cute reply,thanks a lot