---- 这两个命令的基本作用都是往一个已经打开的数据库中添加新的记录,不同点在于: INSERT命令可以在数据库的任意位置插入新的记录,而APPEND命令只能在数据库的尾部添加新的记录。本人在编程中,有一次为了保证一个数据库记录的顺序按一定的要求排列,从而使用了INSERT命令在指定的位置插入新的记录。然而在程序运行过程中,却发现新的记录总是被添加在数据库的尾部。经过一番对程序的仔细检查,本人想起为了实现对数据记录的快速检索,曾为该数据库建立了一个结构复合索引文件,此索引文件总是随着该数据库的打开而自动打开,而在使用数据库文件时,如果与其相联的索引文件同时打开了,则INSERT命令与APPEND命令的作用是相同的。解决的办法是:在使用该数据库时,如果不苛求数据库记录的物理顺序的话,可以用SET ORDER TO〈索引名〉来控制数据库记录的逻辑顺序。否则,可以用SORT命令对其进行物理位置排序。当然,后者的情况比较少见,且费时费力。
INIT EVENT:
set safety off
public z
if .not.file(′mv.mem′)
z=1
else
restore from mv additive
endif
thisform.combo1.additem("第一个单位")
…
thisform.combo1.additem("第二个单位")
thisform.combo1.listindex=z
DESTROY EVENT:
z=thisform.combo1.listindex
save to mv all like z