ya tengo solucionado lo de la consulta y el llenado del grid solo me falta pasar los datos de la fila seleccionada a los texbox en otro formulario
a ca les pongo el codigo
para llenar el grid
CLOSE TABLES
IF EMPTY(ALLTRIM(thisform.fechade.Value) )
RETURN
ENDIF
fechade=ALLTRIM(thisform.fechade.Value)
*use Z:\zafra\Zafrap\CostoEq\eq\Dbf\costosEQ share
use c:\CostoEq\eq\Dbf\costosEQ share
SELECT informe,fecha,placa,codser,horometro,diesel,nuto68,w85,w15relleno,w15cambio FROM costosEQ WHERE BETWEEN (fecha,CTOD(thisform.fechade.value),CTOD(thisform.fechahasta.Value )) INTO CURSOR busquedafecha
****Nota: La busqueda se realiza en una tabla que se llama "Cliente" y en un campo llamado "Nombre";
Crea un cursor temporal en el que guarda los datos encontrados
IF !EMPTY(fechade) THEN
WITH thisform.buscaradora&& Crea el grid
**********************
.SelectedItemBackColor=RGB(255,255,255)&&Color del fondo de las letras
.SelectedItemForeColor=RGB(0,0,0)&&Color de las letras
**********************
.columncount=10&&indica el numero de columnas
.readonly=.T.&&solo lectura
.allowheadersizing=.f.
.allowrowsizing=.f.
.recordsource="busquedafecha"
.column1.ControlSource="busquedafecha.informe"
.column2.ControlSource="busquedafecha.fecha"
.column3.ControlSource="busquedafecha.placa"
.column4.ControlSource="busquedafecha.codser"
.column5.ControlSource="busquedafecha.horometro"
.column6.ControlSource="busquedafecha.diesel"
.column7.ControlSource="busquedafecha.nuto68"
.column8.ControlSource="busquedafecha.w85"
.column9.ControlSource="busquedafecha.w15relleno"
.column10.ControlSource="busquedafecha.w15cambio"
.Left = 5 && Ajustar posicion de la Grid
.Visible = .T. && Grid control visible
.FontSize = 8 && Tamaño de la Fuente para el texto
.Forecolor = RGB(0,0,0) && Texto en Negro
.GridLineColor = RGB(0,0,0) && Color de las lineas que separan las celdas
.GridLines = 3 && Especifica si el control grid se muestra en lineas horizontales y verticales
.Highlight = .T. && La celda aparece selecionada
.HighlightRowLineWidth = 2 && El ancho del resaltado de la fila selecionada
.HighlightStyle = 2 && Si la fila esta resaltada, permanece resaltada cuando el usuario cambia el enfoque a otro control del formulario
.Panel = 1
.RecordSourceType = 1
.RowHeight = 18 && El alto de las filas de la grid
.Tabindex = 1 && Orden de la tabulacion
.View = 0 && Tipo de Vista
.column1.ControlSource="busquedafecha.informe"
.column2.ControlSource="busquedafecha.fecha"
.column3.ControlSource="busquedafecha.placa"
.column4.ControlSource="busquedafecha.codser"
.column5.ControlSource="busquedafecha.horometro"
.column6.ControlSource="busquedafecha.diesel"
.column7.ControlSource="busquedafecha.nuto68"
.column8.ControlSource="busquedafecha.w85"
.column9.ControlSource="busquedafecha.w15relleno"
.column10.ControlSource="busquedafecha.w15cambio"
***cambiar el header **********************
.column1.header1.caption="N Informe"
.column2.header1.caption="Fecha"
.column3.header1.caption="Taller"
.column4.header1.caption="Cargadora"
.column5.header1.caption="Horometro"
.column6.header1.caption="Diesel"
.column7.header1.caption="Nuto68"
.column8.header1.caption="85w-140"
.column9.header1.caption="15w-40 Relleno"
.column10.header1.caption="15w-40 Cambio"
***** color
.column1.fontbold=.t.
.column2.fontbold=.t.
.column3.fontbold=.t.
.column4.fontbold=.t.
.column5.fontbold=.t.
.column6.fontbold=.t.
.column7.fontbold=.t.
.column8.fontbold=.t.
.column9.fontbold=.t.
.column10.fontbold=.t.
FOR grdNegrit=1 TO 10
ncol="column"+ALLTRIM(STR(grdNegrit))+"."
.&ncol.header1.FontBold=.T.
.&ncol.header1.Alignment=0
ENDFOR
.allowcellselection=.f.
.setfocus
*.Refresh
ENDWITH
ELSE
IF LASTKEY()<>127 .and. EMPTY(ALLTRIM(This.Value))
Messagebox("Ingrese fecha a Buscar",0+64,"Buscar")
ENDIF
thisform.fechade.SetFocus
ENDIF
IF RECCOUNT()=0 .and. thisform.BSeleccionar.enabled=.T.
thisform.BSeleccionar.enabled=.F.
ELSE
thisform.BSeleccionar.enabled=.T.
ENDIF
