DEFINE CLASS formz AS form Top = -1 Left = 0 DoCreate = .T. Caption = "Form1" Name = "Form1" ADD OBJECT grid1 AS grid WITH ; ColumnCount = 1, ; Height = 157, ; Left = 36, ; RecordSource = "RO", ; RecordSourceType = 0, ; Top = 36, ; Width = 301, ; Name = "Grid1", ; Column1.FontSize = 8, ; Column1.ControlSource = "", ; Column1.Sparse = .F., ; Column1.Name = "Column1", ; Column2.ControlSource = "", ; Column2.Name = "Column2" ADD OBJECT formz.grid1.column1.header1 AS header WITH ; Caption = "Header1", ; Name = "Header1" ADD OBJECT formz.grid1.column1.combo1 AS combobox WITH ; FontSize = 8, ; BoundColumn = 2, ; RowSourceType = 6, ; RowSource = "ratecodeset.desc,iid", ; ControlSource = "ro.fk_dept", ; Height = 10, ; Left = 29, ; SpecialEffect = 1, ; Style = 2, ; Top = 23, ; Width = 10, ; BorderStyle = 0, ; BoundTo = .T., ; Name = "Combo1" PROCEDURE Activate THISFORM.Grid1.Column1.Combo1.Requery() ENDPROCThe RO table (simplified to make the above work OK):