VFP数据库-存盘

1.一开始的表格：有5个学院

2.存盘：存上机电工程学院

3.存盘后，学院为空

thisform.tyuanxi.value=""
thisform.refresh

 4.打开表格，表格中多了机电工程学院

相应代码：

#Init:(页面)
set default to e:\2018\...    #设置默认路径
public m.yuanxi,m.yuanxihao   #定义两个变量：院系和院系号

#click event（存盘）:
m.yuanxi=alltrim(thisform.tyuanxi.value) #将空格中院系的值赋值给m.yuanxi
use 表4                   #打开表4（表4即为上面的表）
if recc()=0               #条件函数：如果表格是空的
m.yuanxihao=1             #那么院系号就为1
else                      #如果不是
go bottom                 #把指针指向最后
m.yuanxihao=yuanxihao+1   #院系号为表格最后的院系号+1
endi                      #结束条件函数

append blank              #追加空记录
replace yuanxi with m.yuanxi  #在表格上加上该院系
replace yuanxihao with m.yuanxihao #在表格上加上该院系号
&&gath memv               #或者也可以用这种方式添加
use                       #关闭表格
thisform.tyuanxi.value=""     #将表单的院系变为空
thisform.refresh              #刷新

#关闭：
close data                 #关闭数据
set default to             #恢复路径
thisform.release           #关闭表单