Question

VFP 组合框代码

问题1：
form1内容包括：
（1）lable1信息查询
(2)combo1 combo1的 RowSourceType为1-值，Style为 1-下拉列表
包括：学生信息、寝室信息、卫生情况、纪律情况
(3)“查询”按钮：command1
我想在下拉列表中选择“学生信息”后，在单击“查询”按钮就能进入"stu_cx"表单
选择“寝室信息”后，在单击“查询”按钮就能进入"dorm_cx"表单
问题2：form2:
(1)lable1:请选择查询方式 combo1:包括按年级，按院系，
（2）lable2:请选择年级 combo2:包括2001、2002、2003......
（3）lable3:请选择院系 combo3：包括经济管理学院、体育学院.....
（4）command2：“开始查询”
（5）表格控件1个（数据环境为student.dbf）
我想在选择combo1中的一个值如“按院系”后，光标能自动定位在combo3，点击“开始查询”后能在表格控件中显示符合查询条件“student.dbf”中的相关数据信息。

Answer 1

FORM1
COMBO1.INIT
WITH THIS
.ADDITEM("学生信息",1)
.ADDITEM("寝室信息",2)
....
ENDWITH

COMMAND1.CLICK
DO CASE
CASE THISFORM.COMBO1.LISTINDEX=1
DO FORM stu_cx
CASE....
ENDCASE

FORM2
先在FORM1的INIT里定义全局变量COMBO_SELECTED
PUBLIC COMBO_SELECTED
THISFORM.GRID1.RECORDSOURCETYPE=4 &&SQL-STATEMENT

COMBO1.INTERACTIVECHANGE
IF THIS.LISTINDEX=1
THISFORM.COMBO2.SETFOCUS()
COMBO_SELECTED=1
ELSE
THISFORM.COMBO3.SETFOCUS()
COMBO_SELECTED=2
ENDIF

按钮.CLICK
THISFORM.GRID1.COLUMNCOUNT=-1
IF COMBO_SELECTED=1
THISFORM.GRID1.RECORDSOURCE="SELECT * FROM 表 INTO CURSOR TEMPT"
ELSE
THISFORM.GRID1.RECORDSOURCE="SELECT * FROM student INTO CURSOR TEMPT"
ENDIF
THISFORM.GRID1.AUTOFIT()
THISFORM.GRID1.REFRESH