Cómo hacer funcione un COMBOBOX dentro de una grid

Hola, quisiera saber cómo puede funcionar un combo dentro de una grid, el cual tome valores de una tabla.

gracias

Lo que generalmente hago es remover el grid y luego crearlo según las características que quiero, te mando un ejemplo en el que le agrego cuadros de verificación en la columna 2 y 4, espero te sirva.

*/* Crea la cuadrícula
with thisform.Pgf_11.Pg_112.cnt_1123
.RemoveObject("gd_11231")
.AddObject("gd_11231","grid")
endwith
*/* Da las coordenadas de ubicación a la cuadrícula
with thisform.Pgf_11.Pg_112.cnt_1123.gd_11231
.recordsource = ""
.ColumnCount = 8
.Height = 151
.Left = 3
.Top = 4
.Width = 318
.Visible = .t.
.Enabled = .t.
endwith
*/* Da formato a la cuadrícula
with thisform.Pgf_11.Pg_112.cnt_1123.gd_11231
.recordsourceType = 1 && alias
.recordsource = "dbf_temp_11231"
.column1.width = 40
.column1.Header1.Caption = "Activo"
if xtipo < 7
.column2.width = 80
else
.column2.width = 0
endif
.column2.Header1.Caption = "F.Informe"
if xtipo < 7
.column3.width = 0
else
.column3.width = 120
endif
.column3.Header1.Caption = "Desc.Informe"
.column4.width = 40
.column4.Header1.Caption = "Rpta."
.column5.width = 80
.column5.Header1.Caption = "F.Rpta."
.column6.width = 0
.column7.width = 0
.column8.width = 0
endwith
*/* Pone en la columna 1 el cuadro de verificación
with thisform.Pgf_11.Pg_112.cnt_1123.gd_11231.column1
.AddObject("check1","checkBox")
.currentcontrol = "check1"
.Check1.Visible = .t.
.Check1.Caption = ""
.Sparse = .f.
endwith
*/* Pone en la columna 4 el cuadro de verificación
with thisform.Pgf_11.Pg_112.cnt_1123.gd_11231.column4
.AddObject("check1","checkBox")
.currentcontrol = "check1"
.Check1.Visible = .t.
.Check1.Caption = ""
.Sparse = .f.
endwith
thisform.Pgf_11.Pg_112.cnt_1123.enabled = .t.

Revisa este link, espero que te sea de mucha ayuda:
http://www.portalfox.com/index.php?name=News&file=article&sid=2698