Prev: Problem Cavo27b with Windows Server 2008 64 bit
Next: Array of Strings to OLE
From: SzGábor on 28 May 2010 07:50
Hi all,

A made a table with bBrowse. It is work fine.

A want some filter for the columns with setfilter. It is work with
numeric datas, but with the data, and character column not work .

What is the problem with my codes ?

METHOD FooterClick1( oCol ) CLASS bdatabrowser

do case
case oCol:Column:FieldSym == #BIZ // the type is character

oDCbBrowser:Server:SetFilter(, ;
'BIZ>='+Str(oDCSLE_Biztol:TEXTVALUE )+'.and.'+; //
(oDCSLE_Biztol,oDCSLE_Bizig)
'BIZ<='+Str(oDCSLE_Bizig:TEXTVALUE ); // SLE
condition for this not work
)
/*It's not workt he setfilter function. It is work like there is no
condition for the datas */


case oCol:Column:FieldSym == #KELET // the type is date

oDCbBrowser:Server:SetFilter(, ;
'KELET>='+DToC(oDCSLE_kelettol:VALUE )+'.and.'+; //
(oDCSLE_kelettol,oDCSLE_keletig)
'KELET<='+DToC(oDCSLE_keletig:VALUE ); // SLE
condition for this not work
) // ez működik

/* It is work the setfilter function like there is no data for this
condition*/
/* but between the data condition exist valid datas */


case oCol:Column:FieldSym == #OSEG // it is work
good
oDCbBrowser:Server:SetFilter(, ;
'OSEG>='+Str(oDCSLE_oszegtol:VALUE )+'.and.'+;
'OSEG<='+Str(oDCSLE_oszegig:VALUE );
)
/* for numeric data work the setfilter function*/


endcase

return self

Regards,
Gábor Szőke
From: SzGábor on 28 May 2010 07:58
Pardon !
of course the METHOD is FooterClick and not
FooterClick1
From: Massimo Bighelli on 28 May 2010 08:33
Gabor,

try putting string delimiters around your SLE textvalues

oDCbBrowser:Server:SetFilter(,"BIZ>='"+Str(oDCSLE_Biztol:TEXTVALUE )+"'.and."+
"BIZ<='"+Str(oDCSLE_Bizig:TEXTVALUE )+"'" )

Massimo



"SzGábor" <szgabor1961(a)gmail.com> ha scritto nel messaggio
news:f684b0d2-6f5a-4af7-8963-e8d23ebadec6(a)y21g2000vba.googlegroups.com...
Hi all,

A made a table with bBrowse. It is work fine.

A want some filter for the columns with setfilter. It is work with
numeric datas, but with the data, and character column not work .

What is the problem with my codes ?

METHOD FooterClick1( oCol ) CLASS bdatabrowser

do case
case oCol:Column:FieldSym == #BIZ // the type is character

oDCbBrowser:Server:SetFilter(, ;
'BIZ>='+Str(oDCSLE_Biztol:TEXTVALUE )+'.and.'+; //
(oDCSLE_Biztol,oDCSLE_Bizig)
'BIZ<='+Str(oDCSLE_Bizig:TEXTVALUE ); // SLE
condition for this not work
)
/*It's not workt he setfilter function. It is work like there is no
condition for the datas */


case oCol:Column:FieldSym == #KELET // the type is date

oDCbBrowser:Server:SetFilter(, ;
'KELET>='+DToC(oDCSLE_kelettol:VALUE )+'.and.'+; //
(oDCSLE_kelettol,oDCSLE_keletig)
'KELET<='+DToC(oDCSLE_keletig:VALUE ); // SLE
condition for this not work
) // ez működik

/* It is work the setfilter function like there is no data for this
condition*/
/* but between the data condition exist valid datas */


case oCol:Column:FieldSym == #OSEG // it is work
good
oDCbBrowser:Server:SetFilter(, ;
'OSEG>='+Str(oDCSLE_oszegtol:VALUE )+'.and.'+;
'OSEG<='+Str(oDCSLE_oszegig:VALUE );
)
/* for numeric data work the setfilter function*/


endcase

return self

Regards,
Gábor Szőke


--- news://freenews.netfront.net/ - complaints: news(a)netfront.net ---
From: SzGábor on 28 May 2010 08:38
Thanks !

That was the problem.

Now it work .

Best Regards:

Gábor Szőke
 | 
Pages: 1
Prev: Problem Cavo27b with Windows Server 2008 64 bit
Next: Array of Strings to OLE