Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Buffering
Message
General information
Forum:
Visual FoxPro
Category:
Databases,Tables, Views, Indexing and SQL syntax
Title:
Miscellaneous
Thread ID:
01191514
Message ID:
01193698
Views:
6
The comments are also wrong, 5 is a table buffering, not row buffering <g>

>Don, few things:
>
>Remove:
>
>= CURSORSETPROP('Buffering',5, 'biditems' )  && Enable row buffering.
>= CURSORSETPROP('Buffering',5, 'projects' )  && Enable row buffering.
>= CURSORSETPROP('Buffering',5, 'projectphases' )  && Enable row buffering.
>= CURSORSETPROP('Buffering',5, 'lineitemspecs' )  && Enable row buffering.
>
>
>From your Init Event of the form or remove only this for biditems, there is no need of it. You use CA and It is buffered.
>
>Second: Add KeyField in UpdateNameList:
>
>this.oCa.updatenamelist =     "lineitemest biditems.lineitemest," + ;
>                              "lineitemqty biditems.lineitemqty,"  + ;
>                              "biditemid   biditems.biditemid"
>
>
>Third: Change this code in InterActiveChange Event of the cboProject:
>
>this.Value = this.Value
>thisform.cboPhase.RowSourceType = 3
>
>**** from this:
>thisform.cboPhase.RowSource = ;
>'select phasename,projectphaseid from projectphases where projectid = val(this.Value) into cursor crsPhases'
>
>*** to this:
>thisform.cboPhase.RowSource = ;
>        'select phasename,projectphaseid from projectphases where projectid = '+this.Value+' into cursor crsPhases'
>thisform.cboPhase.Requery()
>thisform.cboPhase.DisplayValue = ' '
>dodefault()
>
If it's not broken, fix it until it is.


My Blog
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform