Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Sharing form
Message
De
24/10/2004 17:31:31
Hilmar Zonneveld
Independent Consultant
Cochabamba, Bolivie
 
 
À
24/10/2004 04:55:09
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Titre:
Versions des environnements
Visual FoxPro:
VFP 5
Divers
Thread ID:
00954064
Message ID:
00954143
Vues:
18
>hi all,
>
>i'll try to insert two bills at the same time via same form via two pc
>
>1.i creat temp.table
>2.at my form i put a grid to insert my item via temp.table
>3.when i finish insert items, at save command i append all things from my grid to mstr.table
> ...

Although this wasn't your real question: There is really no need to create data in a temp table and then copy to the final destination.

Many things are much simpler if you use buffering. You can create the data directly in the final table. No data will be saved until you give the TableUpdate() command. You can undo any change with TableRevert().


>
>but if mybill number is =14 at my pc,
>i can see the same number at another pc.
>
>how i can let every pc have another number of bill , when i open myform to add new bills
>via 2 pc or more.
>or if another way to do that
>
>this is the code..at save command
>
>USE MSTR EXCL
>  Append From Dbf('temp')
>  replace w1 with thisform.text14.value
>  replace w2 with thisform.text16.value
>  With thisform.grid1
>   .recordsource = ''
>   Select temp
>    Zap                && i get error message  any idea
>   *delete all
>
>   .recordsource = 'temp'
>   thisform.text1.SetFocus
>   thisform.refresh
>  endwith
>  ******************
> with thisform.Grid1
> .Recordsource = .Recordsource
>endwith
>
>  ********************************************
>  thisform.text1.value=space(10)
>  thisform.text2.value=ctod("  /  /  ")
>  thisform.text3.value=space(10)
>  thisform.text4.value=space(10)
>  thisform.text5.value=space(10)
>  thisform.text6.value=0
>  thisform.text7.value=0
>  thisform.text8.value=0
>  thisform.text10.value=0
>
>SELECT mstr
>SELECT MAX(BILLNO) FROM mstr INTO ARRAY laArray
>IF _TALLY > 0
>  THISFORM.TEXT1.VALUE = laArray + 1
>ELSE
>  THISFORM.TEXT1.VALUE = 1
>ENDIF
>With thisform.grid1
>   .recordsource = ''
>   Select temp
>   SET EXCLUSIVE off && i get error message  any idea
>   Zap
> * delete all
>   .recordsource = 'temp'
>   thisform.text1.SetFocus
>   thisform.refresh
>  endwith
>  thisform.grid1.refresh
>
>thanks
>m.qasem
Difference in opinions hath cost many millions of lives: for instance, whether flesh be bread, or bread be flesh; whether whistling be a vice or a virtue; whether it be better to kiss a post, or throw it into the fire... (from Gulliver's Travels)
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform