RE:Ver Campo Memo en Grid
hola como va aca les dejo una solucion que para mi es muy copada
primero muestro en el grid el contenido de una tabla mediante una consulta sql de esta manera:
select ALLTRIM(dni),ALLTRIM(apellido),ALLTRIM(PROPER(LOWER(nombre))),ALLTRIM(PROPER(LOWER(direccion))),ALLTRIM(PROPER(LOWER(ejecutivadni))),ALLTRIM(PROPER(LOWER(tel))),ALLTRIM(PROPER(LOWER(mails))), CAST("nota" as Memo) AS CampoMemo ,ALLTRIM(PROPER(LOWER(categoria))),id;
from vendedoras;
into cursor _temp3
fijence que un campo es memo
despues voy a la columna que muestra el memo y le borro el tex1box de esa columna y es su lugar le coloco un boton invisible
y en el evento click introducsco este codigo:
LOCAL nGetWin,i
DIMENSION thisform.oWindows[1]&&[ALEN(thisform.oWindows)+1]
nGetWin = 1
thisform.oWindows[m.nGetWin] = CreateObject('form')
thisform.oWindows[m.nGetWin].height = 400
thisform.oWindows[m.nGetWin].width = 600
*thisform.oWindows[m.nGetWin].top = m.nGetWin*10
*thisform.oWindows[m.nGetWin].left = (m.nGetWin*10)
thisform.oWindows[m.nGetWin].NAME = 'child'+ALLTRIM(STR(m.nGetWin))
thisform.oWindows[m.nGetWin].autocenter=.t.
thisform.oWindows[m.nGetWin].backcolor = RGB(0,255,255)
thisform.oWindows[m.nGetWin].borderstyle=2
thisform.oWindows[m.nGetWin].caption = "Visor de notas a las asesoras"
thisform.oWindows[m.nGetWin].maxbutton=.f.
thisform.oWindows[m.nGetWin].AddObject('edimemo','editbox')
thisform.oWindows[m.nGetWin].edimemo.height = 399
thisform.oWindows[m.nGetWin].edimemo.width = 600
thisform.oWindows[m.nGetWin].edimemo.Visible = .t. && Hide the Line control
thisform.oWindows[m.nGetWin].edimemo.controlsource=ALLTRIM(PROPER(LOWER("_temp3.campomemo")))
thisform.oWindows[m.nGetWin].edimemo.fontsize=8
thisform.oWindows[m.nGetWin].edimemo.readonly=.t.
ACTIVATE WINDOW (thisform.oWindows[m.nGetWin].NAME) IN WINDOW (thisform.name)
ahora agan un click en cada registro para ver el campo memo y esta muy copado hasta la palabra memo saca
suerte