> with .Grid1 as my_Grid of my_class.vcx > .recordsource='Language' > .colID.controlsource='Language.LanguageID' > .colEntryType.controlsource = 'Language.EntryType' > .column1.controlsource = 'Language.LookupVal' > .colLanguage00.controlsource = 'Language.Language00' > with .colEntryType > .removeobject('text1') > .newobject('cboEntryType','my_combobox','my_class.vcx') > .cboEntryType.rowsourcetype = 5 > .cboEntryType.rowsource = 'thisform.aEntryTypes' > .cboEntryType.columncount = 1 > .cboEntryType.boundcolumn = 2 > .cboEntryType.boundto = .t. > .cboEntryType.Requery() > .cboEntryType.visible = .t. > endwith > endwith >>