David,

Thanks again. I have it working ok except I need to put the value that I choose from the combo box into the current field after I select it from the combo box.

LOCAL lnColCnt, lnCnt
lnColCnt = This.ColumnCount
lnCnt = 1
FOR lnCnt = 1 to lnColCnt
* Find the column for the RodId
IF UPPER(This.Columns(lnCnt).ControlSource) = "RODID"
This.Columns(lnCnt).Bound = .F.
This.Columns(lnCnt).AddObject("cboRodId", "COMBOBOX")
This.Columns(lnCnt).CurrentControl = "cboRodId"
This.Columns(lnCnt).cboRodId.Visible = .T.
This.Columns(lnCnt).Sparse = .T.
This.Columns(lnCnt).cboRodId.RowSourceType = 6
This.Columns(lnCnt).cboRodId.RowSource = "Rod.RodId"
ENDIF
ENDFOR