adding to list box*RESOLVED*
|
I am trying to add to a list box from two different sources. In the first case I am adding from lstbox1 to lstbox2. I have this working pretty well. Next I want to add from a txtFile to lstBox2. The text file has the name of a pdf file that I want to have showup in the lstbox2.
Now here is what happens:
If I add the pdf file to lstbox2 first I then can add any item from lstbox1 to lstbox2 but I can't add more than 1 pdf file.
If I add an item from lstbox1 to lstbox2 first then I can't add any pdfs at all.
code to add lstbox items
Code:
'add News Developments to list box 2
Private Sub cmdAddNews_Click()
Dim sAdd As String
Found_It = False
Screen.MousePointer = vbHourglass
If lstNews1.ListIndex <> -1 Then
sAdd = lstNews1
For iCount = 0 To lstNews2.ListCount - 1
lstNews2.ListIndex = iCount
If sAdd = lstNews2 Then
Found_It = True
Exit For
End If
Next
If Found_It Then
MsgBox "This item has already been selected"
lstNews2.ListIndex = -1
Else
lstNews2.AddItem lstNews1.Text
iCount = lstNews2.NewIndex
lstNews2.ItemData(lstNews2.NewIndex) = lstNews1.ItemData(lstNews1.ListIndex)
Call CreateConnection(objConn)
sSQL = "INSERT INTO CAMPAIGNDETAILS(cd_id, cd_type, table_id_number) Values ('" & txtPresentationID.Text & "',('NEWS')," & lstNews2.ItemData(iCount) & ")"
objConn.Execute (sSQL)
lstNews2.ListIndex = -1
End If
End If
Screen.MousePointer = vbDefault
End Sub
code to add pdf
Code:
Dim sAdd As String
Found_It = False
sAdd = TxtFile1
For iCount = 0 To lstNews2.ListCount - 1
lstNews2.ListIndex = iCount
If sAdd = TxtFile1 Then
Found_It = True
Exit For
End If
Next
If Found_It Then
MsgBox "This item has already been selected"
lstNews2.ListIndex = -1
Else
lstNews2.AddItem TxtFile1.Text
lstNews2.ListIndex = -1
'/////////////////////// COPY PDF FILE TO PDF FOLDER ////////////////////////
FileCopy Dir1.Path & "\" & File1.FileName, App.Path & "\" & "pdfs" & "\" & File1.FileName
End If
|
__________________
For fear is nought but the surrender of the helps that come from reason;
and the more one's expectation is of itself uncertain, the more one makes of not knowing the cause that brings on torment.
Wisdom 17 - vs 12:13
Last edited by Donorottie; 07-08-2003 at 10:59 AM.
|
Linear Mode
