Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Does this bug still exist in SP2?
Message
From
21/01/2008 06:43:32
Cetin Basoz
Engineerica Inc.
Izmir, Turkey
 
 
To
21/01/2008 06:42:23
General information
Forum:
Visual FoxPro
Category:
Other
Environment versions
Visual FoxPro:
VFP 9 SP1
Miscellaneous
Thread ID:
01283562
Message ID:
01283566
Views:
11
>>You can store an expression longer than 255 in length to a property. But you can retrieve only 256 back.
>>Reproducing code:
>>
>>Public oForm
>>oForm = Createobject('myForm')
>>oForm.Show()
>>
>>Define Class myForm As Form
>>	DataSession = 2
>>	Height = 400
>>	Width = 600
>>	Add Object myGrid As Grid With RecordSource = 'Customer', ;
>>		Height = 350, Width = 600
>>	Add Object getDynExpr As CommandButton With Caption = "Din.Expr",Top =360
>>
>>	Procedure getDynExpr.Click
>>		Local lcExpr
>>		lcExpr = Thisform.myGrid.Columns(1).DynamicForeColor
>>		Messagebox(Transform(Len(m.lcExpr))+Chr(13)+m.lcExpr)
>>	Endproc
>>
>>	Procedure Load
>>		Use (_samples+'data\customer')
>>	Endproc
>>
>>	Procedure Init
>>		Local lcExpr
>>                lcExpr = '(IIF(LEFT(cust_id,1)="C" and country != "USA"'+
>>                        ' and maxordamt >= 1000 and title = "Sales Representative"'+;
>>			' and 1=1 and 1=1 and 1=1 and 1=1 and 1=1 and 1=1 and 1=1'+;
>>                        ' and 1=1 and 1=1 and 1=1 and 1=1 and 1=1 and 1=1'+;
>>			' and 1=1 and 1=1 and 1=1 and 1=1 and 1=1 and 1=1 and 1=1'+;
>>                        ' and 1=1 and 1=1 and 1=1 and 1=1 and 1=1 and 1=1'+;
>>			' and ATC("c",Company) > 0, RGB(255,0,0), RGB(0,0,0)))'
>>		This.myGrid.Columns(1).DynamicForeColor = m.lcExpr
>>	Endproc
>>Enddefine
>>
Cetin
>_____
>Yes, Cetin. Only 256 back in vfp9sp2

Thanks :(
Cetin
Çetin Basöz

The way to Go
Flutter - For mobile, web and desktop.
World's most advanced open source relational database.
.Net for foxheads - Blog (main)
FoxSharp - Blog (mirror)
Welcome to FoxyClasses

LinqPad - C#,VB,F#,SQL,eSQL ... scratchpad
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform