General information
Category:
Forms & Form designer
Hi Tom.
>IF FOUND()
> IF LEN(ALLT(b.namefield1)) > 0
> This.AddItem(b.namefield1,1)
> ENDIF
> IF LEN(ALLT(b.namefield2)) > 0
> This.AddItem(b.namefield2,2)
> ENDIF
> IF LEN(ALLT(b.namefield3)) > 0
> This.AddItem(b.namefield3,3)
> ENDIF
> IF LEN(ALLT(b.namefield4)) > 0
> This.AddItem(b.namefield4,4)
> ENDIF
>ELSE
> MessageBox("This manufacturer and part number can't be found.",16,"P.O. Maintenance")
>ENDIF
>
This code will add four rows to your combo box. Is that what you want it to do? If you want to add 1 row with four columns, you need to specify it as
lnCount = This.ListCount+1
This.AddItem(b.NameField1, lnCount, 1)
This.AddItem(b.NameField1, lnCount, 2)
This.AddItem(b.NameField1, lnCount, 3)
This.AddItem(b.NameField1, lnCount, 4)
If it is your intention to add four Rows to the combo, can you please tell me what behavior you are seeing that you consider to be a malfunction?
BTW, I noticed that you asked this question using Edward's account. I know him. How is he doing?
Marcia
Previous
Next
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only