Public oForm
oForm = Createobject('comboingrid')
oForm.Show

Define Class comboingrid As Form
  Top = 0
  Left = 0
  Height = 350
  Width = 620
  DataSession=2

  Add Object grdorditems As Grid With ;
    Height = 300, ;
    Left = 10, ;
    Top = 10, ;
    Width = 600, ;
    Rowheight = 19,;
    RecordSource = "orditems", ;
    Name = "grdOrditems"

  Procedure Load
    Use _samples+'Data\orditems' Order Tag order_id
    Set Multilocks On
    CursorSetProp("Buffering",5,'orditems')
  Endproc

  Procedure Init
    With This.grdorditems.Column3
      .Bound = .F.
      .ControlSource = "(Iif(Seek(orditems.product_id,"+;
        "'products','product_id'),Products.prod_name,''))"
      .Width = 170
      .AddObject('comboincol','combobox')
      With .ComboIncol
        .BoundColumn = 2
        .BoundTo = .T.
        .ColumnCount = 2
        .ColumnWidths = "180,0"
        .RowSourceType = 3
        .RowSource = "select products.prod_name,product_id"+;
          " from products into cursor crsProducts order by 1"
        .SpecialEffect = 1
        .Style = 2
        .ControlSource = "orditems.product_id"
        .Visible = .T.
      Endwith
      .CurrentControl = 'comboincol'
    Endwith
  Endproc
Enddefine