DCBROWSE ... EDIT DOES NOT WORK WITH SQLEXPRESS

[unixkd]

Dear Roger/All

DCBROWSE ... EDIT DOES NOT WORK WITH SQLEXPRESS.

See below.

DCBROWSE-EDIT-ERROR.png (55.87 KiB) Viewed 13549 times

[rdonnay]

Cell editing was never tested with SQLEXPRESS.

Try putting a code block in the DEFAULT clause.

What build of eXpress++ are you using?

[unixkd]

Version build 261

[unixkd]

Anybody with the idea to make DCBROWSE ... EDIT WORK WITH SQLEXPRESS

Joe

[unixkd]

Now I got it working perfectly

Thanks ALL

Joe

[rdonnay]

We share our solutions with you.

How about sharing your solution with us?

[unixkd]

OK.

1. I use SQLdataset instead of SQLSelect

2. I have

FUNCTION SQLGetSetBlock( oCursor, nField , lCommit)
Local bPutData := {|o,x,lSave|o:fieldPut(nField,IF(ValType(x)=="C",Trim(x),x) ), IF(lSave,o:Commit(),Nil)}
Local oCol, nLen, nDec, xRet
DEFAULT lCommit := .t.
oCol := oCursor:getSQLColumn(nField)
nLen := oCol:length
IF oCol:ValType == "C"
xRet := {|x|if(x==NIL,PadR(oCursor:fieldGet(nField),nLen), Eval(bPutData,oCursor,x,lCommit))}
ELSE
xRet := {|x|if(x==NIL,oCursor:fieldGet(nField), Eval(bPutData,oCursor,x,lCommit))}
ENDIF
RETURN xRet

One More Problem: I discover that DCBROWSECOL ... EDITOR is not saving to table e.g.

DCBROWSECOL DATA SQLGetSetBlock(oCursor, "SellingPrice") HEADER "Selling Price" WIDTH 17 EVAL {|o|o:ColorBlock := bColor} EDITOR "SELLING_PRICE" PICTURE AMT_PIC EDITPROTECT {||!oCursor:FieldGet("AllowPost")}

@ Nil,Nil DCGET xNIL PICTURE AMT_PIC POPUP {|n| DC_PopCalc(n)} GETFONT "8.Courier.Bold.Italic" GETID "SELLING_PRICE"