Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Insert
Message
From
06/06/2011 01:37:04
 
 
To
05/06/2011 06:12:44
General information
Forum:
Visual FoxPro
Category:
Forms & Form designer
Title:
Re: Insert
Environment versions
Visual FoxPro:
VFP 9
OS:
Windows XP
Network:
Windows XP
Database:
Visual FoxPro
Miscellaneous
Thread ID:
01512893
Message ID:
01512922
Views:
114
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
Previous
Reply
Map
View

Click here to load this message in the networking platform