Question

关于VF的问题

建立一个文件名和表单名均为two的表单，然后为表单two建立一个名为quit的新发现，并在该方法中写意条语句 Thisfrom.release,最后向表单中添加一个命令按钮（Command1），并在该命令按钮的Click事件中写一条雨季用为表单建立的新方法quit，
2，使SQL语句计算妹个语句的最高分。最低分和平均分，并将结果存到result.dbf表中（包括歌手姓名，最高分。最低分和平均分4个字段）要求结果安平均分降序
1、建立一个表单名和文件名均为myfrom的表单表 （如图00）。单的标题是“评委打分情况”，表单中有两个命令按钮（Command1和Command2）和两个单按钮（Option1和Option2）。Command1和Command2的标题分别试“生成表”和“退出”，Option1和Option2分别是"安评分升序"和"按评分降序"。
2、为“生成表”命令按钮编写程序，程序的功能是根据简单应用题生成的result.dbf表按制定的排序方式生成新的表，但选按钮“按评分升序”时，依次按最高分、最低分和平均分3个字段升序排序生成表six_d.
3、运行表单。选择“按评分升序”单选钮，单击“生成表”命令按钮；再选择“按评分降序”单选钮，单击“生成表”命令按钮

Answer 1

1.新建表单，设置name属性为two，再表单新建方法，设置名为quit，再在里面输入语句Thisfrom.release，在调用表单控件划一个命令按钮，再在命令按钮里面写调用表单方法的语句，就是Thisform.quit，执行表单，保存表单改名为two
2.select 歌手姓名,Max(成绩) as 最高分,Min(成绩) as 最低分,Avg(成绩) as 平均分;
from 表一,表二 where 表一.字段名=表二.字段名;
order by 平均分 desc into table result
由于没给出相关表的表名和字段名，所以from语句和where语句不好写，但LZ把握好一点就是表点相同字段名相等即可，有什么疑问，请继续追问！

追问

1、建立一个表单名和文件名均为myfrom的表单表 （如图00）。单的标题是“评委打分情况”，表单中有两个命令按钮（Command1和Command2）和两个单按钮（Option1和Option2）。Command1和Command2的标题分别试“生成表”和“退出”，Option1和Option2分别是"安评分升序"和"按评分降序"。

追答

新建表单，设置name属性为myfrom，再设置caption属性为“评委打分情况”（不含双引号），再在表单中划两个命令按钮，其中将Command1的caption属性改为“生成表”（不含双引号），Command2的caption属性改为“退出”（不含双引号），在双击“退出”命令按钮，在左键单击即click事件中编写代码Thisfrom.release，再在表单中划两个单按钮，将Option1的caption属性改为"按评分升序"（不含双引号），将Option2的caption属性改为"按评分降序"（不含双引号），再双击“生成表”命令按钮，输入代码
if thisform.Option1=1
(此处输入SQL语句，可以采用查询导出，由于不清楚表间关系，不方便给出，但要把握一点，此处排序是按评分升序)
endif
if thisform.Option2=1
(此处输入SQL语句，可以采用查询导出，由于不清楚表间关系，不方便给出，但要把握一点，此处排序是按评分降序)
endif
最后执行表单，将文件名改为myfrom，即可。
温馨提示：VF里面切忌打错字符，尤其是文件名如果错了的话，就是0分啊，像这题的文件名是最后一步执行表单后改名的myfrom，其他的也会扣小数分数，像LZ写的"安评分升序"中的“安”应写“按”啊，别一味求快啊！
有什么疑问，可以追问！

Answer 2

关于VF表单问题
说明你的查询语句没有查到任何数据，数组没有生成，这时系统把TMP（1）当作引用名叫TMP的函数参数是1，没有定义这程序就报错了。
改为：
SELECT P_t.姓名, P_t.年龄, P_t.性别, P_t.家庭地址;
FROM frdb!p_t;
where P_t.户主编号=alltrim(ThisForm.Text1.value);
into array tmp

if _tally=0
messagebox('没有找到用户。',48,'错误')
else
ThisForm.Text2.value=tmp(1)
ThisForm.Text3.value=tmp(2)
ThisForm.Text4.value=tmp(3)
ThisForm.Text5.value=tmp(4)
endif

说明：_tally是系统内存变量，包含最近执行的表命令处理过的记录数目。就是最近的这个查询得到记录数，如果是0没有符合条件的数据就提示，有结果才显示到文本框

****************
你先打开表看一下有什么数据，按照现有数据查询一下看，注意字段是字符型的，如果有前导零也要填上。或者直接把ThisForm.Text1.value替换成现有值，在命令窗口运行一下，看能有结果吗？如果有就是Text1的属性设置有问题
****************
这样找问题太难了，要不你把相关文件发过来我看看。

珼孙栉榖敄地屑坡揑峑潖婯主咐淰

Answer 3

1.新建一个表单，把表单的name属性改为two,最后保存表单的时候保存名也改为two ，在菜单的表单选项里选择新建方法程序，名称为quit,双击表单，找到新建的方法事件，在里面输入 thisform.release，关闭代码。新建一个命令按钮，双击命令按钮，在click事件中输入 thisform.quit,保存，运行看下。
2.select 歌手姓名, max(成绩) 最高分,min成绩) 最低分,avg(成绩) 平均分 from 表名 where 条件
order by 平均分 desc into table result
我记得好像歌手姓名在一张表里，成绩在另一张表里。2题中间 表名和条件部分需要你自己补充完整了。

Answer 4

偶的答案就是他的答案