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