Public oForm oForm = Createobject('myForm') oForm.Show Define Class myForm As Form DataSession = 2 Add Object myGrid As Grid With RowHeight = 25 Procedure Load Create Cursor Assignments (Assigned l, Driver c(40)) Insert Into Assignments Values (.F.,'') Insert Into Assignments Values (.T.,'Joe Doe') Insert Into Assignments Values (.F.,'') Insert Into Assignments Values (.F.,'') Locate Endproc Procedure Init With This.myGrid.Columns(2) .AddObject('myCombo','ComboBox') With .myCombo .RowSourceType=3 .RowSource="Select First_name-(' '+Last_Name) as Driver"+; " from employee into cursor crsDrv" .Visible = .T. Endwith * .DynamicCurrentControl = "(Iif(Assignments.Assigned,'text1','myCombo'))" .DynamicCurrentControl = "(Iif(!Empty(assignments.Driver),'text1','myCombo'))" * .Sparse = .f. Endwith Endproc EnddefineCetin