I have two listbox arrays 1 dimensional.
They have the same items but in a different order.
Depending on the order of the second newer listbox I'm constructing a
querystring
to sort the order of returned values, select field3, field1, field2, field4
from etc..
What's an easier more logical way to do this which works for 2 values in the
listbox?
If templist.Items.Count = appfields.Items.Count Then
newfieldcount = 0
newfieldorder = 0
Do Until newfieldcount = appfields.Items.Count - 1
If Trim(templist.Items(newfieldorder)) =
Trim(appfields.Items(newfieldcount)) Then
If newfieldorder <> appfields.Items.Count Then
fieldstr = fieldstr & "field" &
CStr(newfieldorder + 1) & ", "
End If
newfieldcount = newfieldcount + 1
newfieldorder = 0
End If
newfieldorder = newfieldorder + 1
Loop
fieldstr = fieldstr & "field" & CStr(newfieldorder) & ","
appfields.Items.Clear()
appfields.Items.AddRange(templist.Items)
End If