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 #关闭表单