FiveTech Software tech support forums

Marc,

Please review FWH function FWExpBuilder( cExp, oRs, nClrTxt, nClrBack )

This function is used from FWH\samples\fivedbu.prg so you can test it

... TrueName(<cPath>)->cRoot TtoC(<dDateTime>)->cDateTimeString TtoS(<dDateTime>)->cYYYYMMDDhhmmss.ccc Type(<cExp>)->cType U2bin(<nNumber>)->cInteger UnCompressString(<cBuffer>,<nSize>)->cUncompressBuffer UnSelected()->cNull ...

... TrueName(<cPath>)->cRoot TtoC(<dDateTime>)->cDateTimeString TtoS(<dDateTime>)->cYYYYMMDDhhmmss.ccc Type(<cExp>)->cType U2bin(<nNumber>)->cInteger UnCompressString(<cBuffer>,<nSize>)->cUncompressBuffer UnSelected()->cNull ...

... AnsiToHtml(<cAnsiString>)->cHtmlString Array(<nElements>,[<nElements>,...])->aArray Asc(<cExp>)->nCode AScan(<aTargets>,<expSearch>,[<nStart>],[<nCount>],[<lExact>],[<lASCII>])->nStoppedAt ASCIISum(<cString>)->nASCIISum ...

... & Replace classes are currently under construction, but you may already use the full power of RegEx searches, new operators, HAS and LIKE. cExp HAS cPatern|RegEx => bFound cExp LIKE cPatern|RegEx => bLike As well as full featured Functions: HB_Atx( <cRegEx>, <cTargetString> ...

... & Replace classes are currently under construction, but you may already use the full power of RegEx searches, new operators, HAS and LIKE. cExp HAS cPatern|RegEx => bFound cExp LIKE cPatern|RegEx => bLike As well as full featured Functions: HB_Atx( <cRegEx>, <cTargetString> ...

In that case please use bFilterExp instead of cFilterFld.

Eg:
oBrw:bFilterExp := { |cExp| Upper( cExp ) $ FIELD1 + FIELD2 }

With bFilterExp we can have any complex filter conditions:

Eg:
oBrw:bFilterExp := { |cExp| Upper( cExp ) $ FIELD1 .AND. .NOT. ( Upper( cExp ) $ FIELD2 ) }

... -> nArcSine ATan(<nRadians>) -> nArcTangent Array(<nElements> [, <nElements>,...]) -> aArray Asc(<cExp>) -> nCode AScan(<aTargets>, <expSearch>, [<nStart>], [<nCount>],[<lExact>], [<lASCII>]) -> nStoppedAt ...

Hi!
Tmysql ,table/xbrowse like:
ID ,qty,qtyb,cexp,qtyc
001 10,100,"qty*3+5" ,35
002 20,200,"qtyb*2+10",410
003 30,300,"qty+qtyb",330
// qtyc:=&cexp
How to do this.

TKS!
Shuming Wang

... METHOD Seek( uExp, lSoft ) METHOD SetOrder( cnTag, cFile ) INLINE ( ( ::nArea )->( OrdSetFocus( cnTag, cFile ) ) ) METHOD SetRelation( ncArea, cExp ) INLINE ; ( ::nArea )->( DbSetRelation( ncArea, Compile( cExp ), cExp ) ) METHOD Skip( nRecords ) METHOD Skipper( nRecords ) METHOD UnLock() ...

... oMeter, cTitle, oFont, lSave ) #endif METHOD Exchange( nCol1, nCol2 ) INLINE ::SwitchCols( nCol1, nCol2), ; ::SetFocus() METHOD ExpLocate( cExp ) METHOD ExpSeek( cExp, lSoft ) METHOD FreezeCol( lNext ) METHOD GetColSizes() INLINE ; If( ValType( ::aColSizes ) == "A", ::aColSizes, Eval( ::aColSizes ...

... ha sido cambiado pero no han sido grabados. RollBack() puede ser llamada para restaurar el registro original. 16) Mejora: SetRelation( cnoArea, cExp, [lScoped] ). El primer parámetro puede ser otro objeto TDatabase. Añadido un nuevo parámetro opcional lScoped ( Por defecto a .F. ) 17) SetFilter( ...

... or any dbf fields are changed but not yet committed. RollBack() can be called to restore the original record. 16) Improved: SetRelation( cnoArea, cExp, [lScoped] ). First parameter can be another tdatbase object. Added new optional parameter lScoped ( defaults to .f. ) 17) SetFilter( <cFilter> ...

... endif endif retu .t. // 1111 // 1234567890123 // FOR I=1 TO 10 STATIC FUNC FOR2WHILE(cLine) // TRANSFORMA EL FOR EN WHILE LOCAL VARINC,NAT,INI,FIN,CEXP,COND,RESU IF UPPE(SUBS(cLine,1,4))="FOR " VARINC:=ALLTRIM(SUBS(cLine,4));CEXP:=UPPE(VARINC) IF (NAT:=AT("=",VARINC))>0 VARINC:=SUBS(VARINC,1,NAT-1) ...

... endif endif retu .t. // 1111 // 1234567890123 // FOR I=1 TO 10 STATIC FUNC FOR2WHILE(cLine) // TRANSFORMA EL FOR EN WHILE LOCAL VARINC,NAT,INI,FIN,CEXP,COND,RESU IF UPPE(SUBS(cLine,1,4))="FOR " VARINC:=ALLTRIM(SUBS(cLine,4));CEXP:=UPPE(VARINC) IF (NAT:=AT("=",VARINC))>0 VARINC:=SUBS(VARINC,1,NAT-1) ...