您的位置 首页 PR教程

visualfoxpro求和视频教程


关于visualfoxpro求和视频教程最佳答案


visualfoxpro求和视频教程


1.select count(*)个 from 表 group by name


关于visualfoxpro求和视频教程相关答案


2.** 可以使用如下思路实现,先使用 group by name 查询,将查询结果存入临时表1,再在临时表中使用循环调用不同的 name, 并逐一在原表中统计个数,并存入表"统计结果".wait window "正在统计,请稍候" at 20,50 nowait 提示正在统计IF USED('统计结果')=.T.USE IN 统计结果ENDIF IF FILE('统计结果.dbf') = .T.ERASE 统计结果.dbf ENDIF CREATE TABLE 统计结果 FREE (name C(8), 个 I) 建立存储统计结果的表use 原表.dbf shared alias 原表 order name in 0 原表需为name字段建立索引LOCAL m,nSTORE 0 TO m,nSET ENGINEBEHAVIOR 70select name from 原表 group by name INTO CURSOR 临时表1select 临时表1goto top do while eof()=.F.cName=nameselect 原表count for name=cName to ninsert into 统计结果 (name,个) values (cName,n)select 临时表1m=m+1wait window "已统计 "+allt(str(m))+" 条name记录" AT 20,50 NOWAIT skipenddoselect 统计结果wait window "统计完毕!" AT 20,50 NOWAIT browsetbl_name='name统计结果'IF MESSAGEBOX("需要导出刚刚浏览的数据吗?",48+0+4,"确定")=6STORE PUTFILE("文件名:",tbl_name,"xls;dbf") TO pathnameIF !pathname==""COPY TO "pathname" TYPE XL5IF MESSAGEBOX("提示: 数据已导出至: "+CHR(13)+CHR(13)+pathname+"!",48+0+0,"数据已导出")=1ENDIF ELSE IF MESSAGEBOX("数据导出操作已取消!",48+0+0,"取消操作")=1ENDIFENDIF ENDIF 以上程序存储到一个prg文件中运行即可。


了解更多visualfoxpro求和视频教程类似问题


pr新闻字幕条制作教程
pr最高的视频教程

热门文章

发表评论

邮箱地址不会被公开。 必填项已用*标注