ANTONIO, please change this code in XBROWSE.
3.) Method ToExcel:
When the value from first col is empty, then the value from following cols are beginning on the first col! Also, if CRLFs in text (M-fields) should converted with strtran to " ; " or an other character!
This could be a way:
- Code: Select all Expand view
METHOD ClpRow( lFullRow ) CLASS TXBrowse
local nLast := Len( ::aCols )
local n, RetVal := ""
DEFAULT lFullRow := ( ::nMarqueeStyle >= 4 )
if lFullRow
for n := 1 to nLast
if ! ::aCols[ n ]:lHide
* if ! Empty( RetVal )
* RetVal += Chr( 9 )
* endif
RetVal += strtran(::aCols[ n ]:ClpText,CRLF," ; ") + Chr( 9 ) //changed byte-one
endif
next
else
RetVal := strtran(::SelectedCol():ClpText,CRLF," ; ")
endif
return RetVal
2.) When scrolling the database, the arrow and the key "DOWN" from the vertical scrollbar has no reaction. Thumbpos are right.
The ::bBof and ::bEof should redefined and not in DEFAULT! I define the xbrowse without any datatype and later i will set the datas with setRDD. But in method initiate() this codeblocks set to .T. (also eof and bof is .T.) when no datatype are defined!
- Code: Select all Expand view
METHOD SetRDD() class TXBROWSE
.
.
DEFAULT ::bGoTop := {|| ( ::cAlias )->( DbGoTop() ) },;
::bGoBottom := {|| ( ::cAlias )->( DbGoBottom() ) },;
::bSkip := {| n | iif( n == nil, n := 1, ), ( ::cAlias )->( DbSkipper( n ) ) },;
::bBookMark := {| n | iif( n == nil,;
( ::cAlias )->( RecNo() ),;
( ::cAlias )->( DbGoto( n );
) ) }
::bBof := {|| ( ::cAlias )->( Bof() ) } //added byte-one
::bEof := {|| ( ::cAlias )->( Eof() ) } //added byte-one
.
.