WITH THIS .COLUMNCOUNT = 15 FOR i = 1 TO .COLUMNCOUNT .Columns(i).RemoveObject('Text1') .Columns(i).NEWOBJECT('_Text1','_TextBox') .Columns(i).CurrentControl = '_Text1' ENDFOR .RECORDSOURCE = 'CBInvoice' .Column1.CONTROLSOURCE = 'CBInvoice.CO_Date' .Column2.CONTROLSOURCE = 'CBInvoice.CI_Date' .Column3.CONTROLSOURCE = 'CBInvoice.Cnty_No' .Column4.CONTROLSOURCE = 'CBInvoice.CarType' .Column5.CONTROLSOURCE = 'CBInvoice.Days' .Column6.CONTROLSOURCE = 'CBInvoice.PricePerDay' .Column7.CONTROLSOURCE = 'CBInvoice.SubTotal' .Column8.CONTROLSOURCE = 'CBInvoice.OWFee' .Column9.CONTROLSOURCE = 'CBInvoice.Delivery' .Column10.CONTROLSOURCE = 'CBInvoice.CDW' .Column11.CONTROLSOURCE = 'CBInvoice.PAI' .Column12.CONTROLSOURCE = 'CBInvoice.TP' .Column13.CONTROLSOURCE = 'CBInvoice.Gas' .Column14.CONTROLSOURCE = 'CBInvoice.Misc_I' .Column15.CONTROLSOURCE = 'CBInvoice.Misc_E' .Column1.Header1.CAPTION = 'CO Date' .Column2.Header1.CAPTION = 'CI Date' .Column3.Header1.CAPTION = 'Country' .Column4.Header1.CAPTION = 'Type' .Column5.Header1.CAPTION = 'Days' .Column6.Header1.CAPTION = 'Price/Day' .Column7.Header1.CAPTION = 'Amount' .Column8.Header1.CAPTION = 'OW Fee' .Column9.Header1.CAPTION = 'Delivery' .Column10.Header1.CAPTION = 'CDW' .Column11.Header1.CAPTION = 'PAI' .Column12.Header1.CAPTION = 'TP' .Column13.Header1.CAPTION = 'Gas' .Column14.Header1.CAPTION = 'Misc. Include' .Column15.Header1.CAPTION = 'Misc. Exclude' .Column3.RemoveObject('_Text1') .Column3.NEWOBJECT('Combo1','_Combo') .Column3.CurrentControl = 'Combo1' .Column3.Combo1.RowsourceType = 6 .Column3.Combo1.Rowsource = 'CountryPicker.cnty_name,cnty' .Column3.Combo1.Style = 2 .Column3.Combo1.SpecialEffect = 1 .Column3.Combo1.Margin = 0 .Column3.Combo1.BorderStyle = 0 .Column3.Combo1.BoundColumn = 2 .Column3.Sparse = .F. ENDWITH