Guardar en TXBrowse sin CTRL + X

Guardar en TXBrowse sin CTRL + X

Postby JSilos » Mon Jun 15, 2009 6:18 pm

Soy un poko novato y necesito de su valiosa ayuda, Tengo el siguiente codigo donde al editar un TXBrowse solo me guarda la información si presionoCTRL + X, y enseguida ENTER y no se por que, si alguno de uds que tienen experiencia me puede ayudar se los agradeceria infinitamente.

NECESITO QUE GUARDE LA INFORMACION SOLO PRESIONANDO ENTER,
DEFINE WINDOW oChild TITLE "Auto edit browse" MDICHILD OF oWnd

oBrw := TXBrowse():New( oWnd )

oBrw:nMarqueeStyle := MARQSTYLE_HIGHLCELL
oBrw:nColDividerStyle := LINESTYLE_BLACK
oBrw:nRowDividerStyle := LINESTYLE_BLACK
oBrw:lColDividerComplete := .t.
oBrw:nHeaderLines := 1
oBrw:nDataLines := 1

oCol:= oBrw:AddCol()
oCol:cHeader := "CANT."
oCol:bStrData := { || 100->CANT1}
oCol:nWidth := 50
oCol:nEditType := 1
oCol:bOnPostEdit := {|o, v, n| iif( n == VK_RETURN, _FIELD->CANT1:= v ,NIL ) }

oBrw:SetRDD()
oBrw:CreateFromCode()
oChild:oClient := oBrw

ACTIVATE WINDOW oChild ON INIT oBrw:SetFocus()
JSilos
 
Posts: 1
Joined: Sat Jun 13, 2009 6:02 pm

Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 103 guests