combo1 代码
public x
x=this.value
thisform.list1.rowsourcetype=3
thisform.list1.rowsource="select 姓名 from 政工资料 where 部门=x into cursor temp2"
thisform.refresh
rowsource------select distinct 部门 from 政工资料 into cursor temp1
第一个问题不清楚吗?把windowtype设置为模式,
do 登录表单
do 菜单
read events
....
这样不登录就进不了系统
第二个问题,你把数据类型设置为了sql,那么
比如,你要把周杰伦调到秘书处,只用
update 政工资料 set 部门='秘书处' where 姓名=周杰伦
thisform.refresh