Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Illegal operation
Message
De
16/07/1999 10:53:07
 
 
À
15/07/1999 21:40:40
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Divers
Thread ID:
00239348
Message ID:
00242310
Vues:
38
Craig,
I buffer the tables in the following manner.

&& buffer tables
if not tablebuf(2, 'resp_hed')
=errormsg(110, 16)
endif
if not tablebuf(5, 'resp_dtl')
=errormsg(110, 16)
endif


My tablebuf() looks like this.

parameters cprop, buffertable
local c
c = 0

if empty(cprop) or empty(buffertable)
return .f.
endif
do while not cursorsetprop('Buffering', cprop, buffertable)
c = c + 1
if c > 10
return .f.
endif
enddo
return .t.


The errormsg() simply displays a user message indicating the problem.

I update the tables like this.

&& update tables
if not tablebup(2, 'resp_hed')
=errormsg(111, 16)
endif
if not tablebup(2, 'resp_dtl')
=errormsg(111, 16)
endif


My tablebup() looks like this.

parameters crows, updatetable
local c
c = 0

if empty(crows) or empty(updatetable)
return .f.
endif
do while not tableupdate(crows, .t., updatetable)
c = c + 1
if c > 10
return .f.
endif
enddo
return .t.
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform