*Metodo en tu misma form llamado LLenaGrid()
WITH ThisForm.grdBusqueda &&establecemos las propiedades del grid
.columncount = 2 &&indica el numero de columnas
.readonly =.T. &&solo lectura
.allowheadersizing =.T.
.allowrowsizing =.T.
.recordsource = xCursor
.Left = 5 && Ajustar posicion de la Grid
.Forecolor = RGB(0,0,0) && Texto en Negro
.GridLineColor = RGB(176,230,255) && Color de las lineas que separan las celdas
.Highlight = .T. && La celda aparece selecionada
.HighlightBackColor = RGB(182,202,234) && Color de la Fila Selecionada
.HighlightStyle = 2 && Si la fila esta resaltada, permanece resaltada cuando el usuario cambia el enfoque a otro control del formulario
.RecordSourceType = 1
.column1.ControlSource = "Codigo"
.column2.ControlSource = "Nombre"
.column1.header1.caption = "Código"
.column2.header1.caption = "Nombre"
FOR grdNegrit=1 TO 2
ncol = "column"+ALLTRIM(STR(grdNegrit))+"."
.&ncol.header1.FontBold =.T.
.&ncol.header1.Alignment = 2 &&Alinea Centrado
ENDFOR
.column1.Width = 179
.column2.Width = 391
.allowcellselection=.f.
*.setfocus
*.Refresh
ENDWITH