求vfp题目答案

Question

如题所述

Answer 1

“统计”按钮的单击事件代码如下：

t=ALLTRIM(thisform.text1.Value) &&取得查询条件
s=""
SELECT 姓名,编号 FROM zgda WHERE &t INTO CURSOR tempdb
IF _tally>0 THEN &&查询到有数据
SCAN
s=s+姓名+SPACE(5)+编号+CHR(13)
ENDSCAN
s=s+t+":"+ALLTRIM(STR(_tally))+"人"
thisform.edit1.Value =s &&显示统计结果
thisform.Refresh
ENDIF