Hola a todos
Pues eso, que intento poner un bot贸n en una columna del xBrowse, y sale bien, incluso me va a la funci贸n que le indico, pero a la vuelta ni me pone el valor retornado, ni me deja poner un valor en la celda.
驴El bot贸n solo sirve para pincharlo, o se puede teclear?
Me pod茅is indicar con un ejemplo como ponerlo. Os pongo el c贸digo que he usado y que no me da el resultado que deseo.
s茅 que algo hago mal, as铆 que espero vuestras sugerencias
Pues eso, que intento poner un bot贸n en una columna del xBrowse, y sale bien, incluso me va a la funci贸n que le indico, pero a la vuelta ni me pone el valor retornado, ni me deja poner un valor en la celda.
驴El bot贸n solo sirve para pincharlo, o se puede teclear?
Me pod茅is indicar con un ejemplo como ponerlo. Os pongo el c贸digo que he usado y que no me da el resultado que deseo.
oCol = oBrw:AddCol()
聽 聽oCol:bStrData 聽 聽 聽:= { ||(cAlias1)->codigo }
聽 聽oCol:nEditType 聽 聽 := EDIT_BUTTON
聽 聽oCol:cHEADER 聽 聽 聽 := "CODIGO"
聽 聽oCol:addResource( "BUSCAR1" )
聽 聽oCol:lBtnTransparent := .t.
聽 聽oCol:nBtnBmp := 1
聽 聽oCol:bEditValid 聽 聽:= {|o| if ( Empty(o:value()) , .f., .t.) }
聽 聽oCol:bEditBlock 聽 := {|nRow, nCol, oCol| oCol:Value := BuscaUnServicio() 聽}
聽 聽oCol:bOnPostEdit 聽 := { | oCol, xVal, nKey | If( RecCount() == 0,( DbAppend(), oBrw:Refresh() ),) ,;
聽 聽If( nKey == VK_RETURN, If(BServicio(oBrw,xVal),oBrw:Refresh(),oBrw:GoleftMost()),),;
聽 聽If( nKey == VK_ESCAPE .and. Val((cAlias1)->codigo)=0,( (cAlias1)->(dbDelete()),;
聽 聽 聽 聽 聽 聽 聽 聽(cAlias1)->(__dbPack()),(cAlias1)->(dbGoBottom()),oBrw:Refresh() ), ) }s茅 que algo hago mal, as铆 que espero vuestras sugerencias
Un saludo
Pedro
gahetesoft@gmail.com
FWH12.06 BCC582, Xverce CW, Pelles C 6.00.4,PSPAD 4.54
y ahora con ADO
Pedro
gahetesoft@gmail.com
FWH12.06 BCC582, Xverce CW, Pelles C 6.00.4,PSPAD 4.54
y ahora con ADO
