《二级vf》由会员分享，可在线阅读，更多相关《二级vf（6页珍藏版）》请在金锄头文库上搜索。
1、1 表单只有命令按钮，在命令按钮的 click 中输入： （17、79、25、28、60、64）Select 退出命令输入：thisform.release2 表单中有命令按钮和表格控件，在命令按钮中输入（11、14、33、39） Thisform.Grid1.recordsource=“selectinto table + 表名/into cursor + 临时表名“ 3 表单中有 2 个命令按钮、文本框、表格，在命令按钮 click 中输入 （50、85、93） Thisform.Grid1.recordsourde=“select where 字段名 =alltrim（thisform.
2、text1.value）into cursor+ 临时表名“4 表单中有 2 个命令按钮和 2 个文本框，在命令按钮的 click 中输入： （56、59） Select 字段 from 表 where 字段 1= alltrim（thisform.text1.value） into array 数组名 Thisform.text2.value=数组名(1)5 表单中有命令按钮和选项按钮组，在命令的 click 中输入： Do case Case thisform.optiongroup1.value=1 Select Case thisform.optiongroup1.value=2 Se
3、lect Case thisform.optiongroup1.value=3 Select Endcase6 表单中有命令按钮、选项按钮组、表格，在命令按钮 click 中输入： （85、44） Do case Case thisform.optiongroup1.value=1 Thisform.Grid1.recordsource=“select into cursor + 临时表名“ Case thisform.optiongroup1.value=2 Thisform.Grid1.recordsource=“select into cursor + 临时表名“ Endcase7 表单
4、中有命令按钮、组合框、文本框（9、90） 例：组合框中有几个值可供选择，如 S1、S2、S3 三个条件可选: A:在表单的 init 中输入： Thisform.Combo1.additem(“S1“) Thisform.Combo1.additem(“S2“) Thisform.Combo1.additem(“S3“)B:在命令按钮的 click 中输入：Select 字段 from 表 where 字段= alltrim（thisform.Combo1.displayvalue） into array 数组名“ Thisform.text1.value=数组名（1）8 表单中有命令按钮、组
5、合框、表格控件 例：组合框中有几个值可供选择，如 S1、S2、S3 三个条件可选: A:在表单的 init 中输入： Thisform.Combo1.additem(“S1“) Thisform.Combo1.additem(“S2“) Thisform.Combo1.additem(“S3“)B:在命令按钮的 click 中输入： Thisform.Grid1.recordsource=“Select 字段 from 表 where 字段= alltrim（thisform.Combo1.displayvalue）into cursor+ 临时表名“9 表单中有命令按钮、组合框、文本框 （8
6、1、82、90、15、26、31、37、46、51、61、76）A、组合框中用于显示某个字段的值（先添加数据源到数据环境）B、选中组合框：修改 rowsoursetype字段 C、在命令按钮的 click 中输入： Select 字段（text1） from 表 1 where 字段= alltrim（thisform.Combo1.value）into array 数组名 Thisform.text1.value=数组名（1）10 表单中有 2 个命令按钮、组合框、表格控件 A、组合框中用于显示某个字段的值（先添加数据源到数据环境） B、选中组合框：修改 rowsoursetype字段 C、
7、在命令按钮的 click 中输入： Thisform.Grid1.recordsource=“Select 字段（text1） from 表 1 where 字 段= alltrim（thisform.Combo1.value）into cursor + 临时表名11 表单上有一个页框控件、表格控件、选项按钮组、命令按钮（70） A 将用的表添加到数据环境里 B 添加页框控件，将 Buttoncount3 pagecount3 C 双击选项按钮组，在 click 事件中输入： Do case Case thisform.optiongroup1.value=1 Thisform.pagefra
8、me1.Activepage=1 Case thisform.optiongroup1.value=2 Thisform.pageframe1.Activepage=2Case thisform.optiongroup1.value=3 Thisform.pageframe1.Activepage=3 Endcase12、表单中有表格控件、选项按钮组且命令按钮组不同的按钮显示不同的列表 头 （38、44） do case case thisform.optiongroup1.value=1 thisform.Grid1.columncount=4 thisform.Grid1.column1.
9、header1.caption=“ “ thisform.Grid1.column2.header1.caption=“ “ thisform.Grid1.column3.header1.caption=“ “ thisform.Grid1.column4.header1.caption=“ “ thisform.Grid1.recordsourcetype=4 thisform.Grid1.recordsource=“ select into cursor 临时表名“case thisform.optiongroup1.value=2 thisform.Grid1.columncount=3
10、 thisform.Grid1.column1.header1.caption=“ “ thisform.Grid1.column2.header1.caption=“ “ thisform.Grid1.column3.header1.caption=“ “ thisform.Grid1.recordsourcetype=4 thisform.Grid1.recordsource=“ select into cursor 临时表名“case thisform.optiongroup1.value=2 thisform.Grid1.columncount=2 thisform.Grid1.column1.header1.caption=“ “ thisform.Grid1.column2.header1.caption=“ “ thisform.Grid1.recordsourcetype=4 thisform.Grid1.recordsource=“ select into cursor 临时表名“endcase
