求vfp题目答案 5
展开全部
“统计”按钮的单击事件代码如下：
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
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
本回答由网友推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
