也是学习他人的，在该进。
[此贴子已经被作者于2007-5-30 23:07:04编辑过]
实现组合框的记忆选择
---- 在编制管理系统时，往往一个相同的系统要由好几个部门使用，这样，在进入系统时，就要选择不同部门的名称。作为一个使用者，我们希望选择第一次，以后每次进入就不用再选择。以下方法将实现此功能。
---- 新建一个表单，在上面创建一个“组合框”对象，对表单做如下设置：
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
