FiveTech Software tech support forums

... MYC_FLAGS = MYDEFINES = MYPRG_FLAGS = [Source\Function\dlgs32.prg] MYC_FLAGS = MYDEFINES = MYPRG_FLAGS = [Source\Function\editcell.prg] MYC_FLAGS = MYDEFINES = MYPRG_FLAGS = [Source\Function\errsysw.prg] MYC_FLAGS = MYDEFINES = MYPRG_FLAGS = [Source\Function\filename.prg] ...

... "Obj\alert.obj" "Obj\browse.obj" "Obj\clipmore.obj" "Obj\dbtools.obj" "Obj\dlgs32.obj" "Obj\editcell.obj" "Obj\errsysw.obj" "Obj\filename.obj" "Obj\fwdbgp.obj" "Obj\fwerror.obj" "Obj\getsysin.obj" ...

ok I must use only @ 0,0 XBROWSE oBrw OF oWnd DATASOURCE "CUSTOMER" AUTOCOLS ; CELL LINES NOBORDER FASTEDIT is there another method because I have another configuration please : oApp():oGrid := TXBrowse():New( oApp():oDlg ) oApp():oGrid:nTop := 00 oApp():oGrid:nLeft := nSplit+2 oApp():oGri...

The way you coded, it does not work.
The way I coded it works.
Please test my code as it is.

Nages nor run the final user can edit the record but then whe nthe user press return it return as before aBrowse := { { { || CE->ALIMENTO }, i18n("Alimento"), 350, },; { { || CE->PROTEINE }, i18n("Proteine"),40, },; { { || CE->GLUCIDI }, i18n("Glucidi"),40, },;...

oCol := obrow1:AddCol() oCol:bStrData := {||odb1:centerid} oCol:cHeader := "编码" oCol:bEditValue := {||odb1:centerid} oCol:nEditType := {||if(ledit,1,0)} oCol:bOnPostEdit := {|o, v, n| if( n != VK_ESCAPE .and. v != odb1:centerid,; (if(odb1:EOF(),; (odb1:centerid:=v,odb1:enddate:=CTOD("...

Small sample #include "FiveWin.Ch"#include "xbrowse.ch"#include "hbcompat.ch"REQUEST DBFCDX//----------------------------------------------------------------------------//function Main()   local oWnd, oBrw   USE CUSTOMER   DEFINE WI...

After creating XBrowse, set

Code: Select all  Expand view

oCol:nEditType := EDIT_GET

for any column you want the user to edit. When the user presses Enter key or Double clicks the cell, the user enters editmode of the cell contents.
To set all columns editable

Code: Select all  Expand view

oBrw:nEditTypes := EDIT_GET

is there a sample how use a xbrowse and modify the record as editcell of wbrowse ?
tx

... cliccato su "Create" e provato a modificare qualsiasi campo ma non si riesce a salvarlo. Ho provato a modificare e linkare anche il fiel editcell.prg...ma non si riesce a memorizzarlo. Dove sbaglio ? Qualcuno ha avuto gli stessi problemi ? Grazie e auguri Romeo/Zingoni

... the value by double clicking. ( tested with edittype, assigning function to double click, etc. ) I would suggest you to please check with a dummy EditCell() function without any action inside.

... Compiling 'edit.prg'... Lines 56, Functions/Procedures 3 Generating C source output to 'edit.c'... Done. C:\classes>c:\xharbour\bin\harbour editcell.prg /n /ic:\fwh\include;c:\xharbour\include xHarbour Compiler build 1.1.0 (SimpLex) (Rev. 6195) Copyright 1999-2008, http://www.xharbour.org ...

... EndIf ?"263 Exit" Exit //Sale por cada Col EndDo If Len( aDatos ) > 0 AL721TotDoc() &&' acumula y muestra totales EndIf ?"279 CasiFin EditCell lContinue",lContinue, "nAt",nAt, "nCol",nCol, "oLbx:nLastKey", oLbx:nlastkey If lContinue Do Case Case oLbx:nLastKey == VK_UP return If( !GetKeyState(VK_SHIFT), ...

... edit de col1 ?"257 oLbx:nLastKey=38" return .f. endif ?"262 oLbx:nLastKey<>38" return .f. // error de ?? que sale con .F. y entra otra vez a EditCell * EndIf EndIf ?"269 Exit" Exit //Sale por cada Col Lo que más me confunde es que esta misma rutina trabaja bien en el ejemplo que modifiqué ...

... := {| nRow, nCol | picard(oBrw, nRow, nCol,0 )} //oBrw:bKeyChar := {| nKey, nRow,nCol | if(nKey= 55, editCell(oBrw,nRow,nCol),"") } //oBrw:fastedit := .T. * oBrw:bRClicked := {| nRow,nCol | buildx(oBrw, ...