List Box Issue

[Joe Contreras]

Hi All, my previous post errored out
Here goes short and sweet.

I have a list box with multiple selection capability. I'm currently showing one column value dept code and passing that value to the target SQL, however I need to have two columns show in the list box dept. code and department and pass only the dept. code value to the targeted SQL

Example:
Dept.Code Department
0112S Finance

I can't use this code lstDept.ItemData(lstDept.NewIndex)because dept. code is not an integer.

Here is my FOR loop that reviews the list box value selected.
For i = 0 To Me.lstDept.ListCount - 1
If lstDept.Selected(i) = True Then
Criteria = Criteria & "'" & Trim(Me.lstDept.List(i)) & "'" & ","
End If
Next i

How do I pass only the department code??

Thanks in advance

[Lothar Haensler]

in addition to adding an item to the listbox using listbox1.Additem syntax I'd also fill an Array of strings with the corresponding dept code.
(
dim deptcode() as string
dim i as integer
list1.additem deptName
redim deptcode(i)
deptcode(i) = deptCode
i = i+1
)
Then, when it's time to iterate over all selected items:

for i = 0 to list1.listcount-1
if list.selected(i) then
dc = deptCode(i)
criteria=...
endif
next i