WITH thisform.Pageframe1.Page1.grdOrder .RecordSource = "order" .DeleteMark = .F. .Column1.ControlSource="order.itemcode" .Column1.ReadOnly=.F. .Column1.Header1.Caption="Item Code" .Column2.ControlSource="order.qty" .Column2.ReadOnly=.F. .Column2.Header1.Caption="Qty." .Column3.ControlSource="order.unit" .Column3.ReadOnly=.F. .Column3.Header1.Caption="Unit" .Column4.ControlSource="order.unit" .Column4.ReadOnly=.F. .Column4.Header1.Caption="Unit Table" .Column4.cbounit.ControlSource="unit.unitcode" .Column4.cbounit.RowSource=unit.unitcode .Column4.cbounit.RowSource.type=6 ENDWITHDerek Yim