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