Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Insert
Message
De
06/06/2011 01:37:04
 
 
À
05/06/2011 06:12:44
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire d'écran & Écrans
Titre:
Re: Insert
Versions des environnements
Visual FoxPro:
VFP 9
OS:
Windows XP
Network:
Windows XP
Database:
Visual FoxPro
Divers
Thread ID:
01512893
Message ID:
01512922
Vues:
115
If I understood what you meant you should have a form with 4 textboxes one for each of your table's field

if so I suppose you'll have a commandbutton for confirming the insert operation.

suppose that Your table had the following fields "field1, filed2,field3....fieldn"

in the click.event of your button you could put a code like this
sele YourTable
scatter memv blank
if !empty(thisform.text1.value)
  m.field1 = thisform.text1.value
endif 
.....
if !empty(thisform.textn.value)
  m.field1 = thisform.texte.value
endif 

insert into YourTable from memvar
>thank you for reply
>any small example
>
>>you could use scatter memvar blank before you start our I/O operation then
>>fill the fields you like with the variables and finally
>>insert into YourTablename from memvar
>>
>>
>>>hi all,
>>>
>>>i need help to insert via form into table fileds as
>>>
>>>
>>>decision no 1  chld    desc memeo(blabla.....)
>>>            1   1.1     desc text chr(254)
>>>            1   1.2
>>>            1   1.3
>>>            1   1.4
>>>                .
>>>                .
>>>            1   1.10 
>>>*****************************************
>>>decision no 2  chld    desc memeo(blabla.....)
>>>            2   1.1     desc text chr(254)
>>>            2   1.2
>>>            2   1.3
>>>            2   1.4
>>>                .
>>>                .
>>>            2   1.10 
>>>*************************
>>>.
>>>.
>>>decision no 30  chld    desc memeo(blabla.....)
>>>            30   1.1     desc text chr(254)
>>>            30   1.2
>>>            30   1.3
>>>            30   1.4
>>>                .
>>>                .
>>>            30   1.10 
>>>**************************************
>>>at the table
>>>
>>>appen blank
>>>&&if not empty
>>>replace fields with .......&if not empty
>>>
>>>
>>>thanks
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform