| 网站首页 | 业界新闻 | 群组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 编程论坛
免费IT实战开发视频教程合集分享千里之行 始于足下
共有 387 人关注过本帖
标题:通过编程,自动在DBF表的增加末行显示最近出现的5个不同的数字。详细如下:
只看楼主 加入收藏
wuzhucelela
Rank: 1
等 级:新手上路
帖 子:32
专家分:0
注 册:2013-12-6
结帖率:87.5%
  已结贴   问题点数:50  回复次数:6   
通过编程,自动在DBF表的增加末行显示最近出现的5个不同的数字。详细如下:


通过编程,自动在DBF表的末尾行增加三行,然后在最末行的相应位置显示最近出现的5个不同的数字。例如:由原始表,通过编程生成(依然在原始表显示)效果表的效果。
附件: 您没有浏览附件的权限,请 登录注册
2018-07-09 23:35
wuzhucelela
Rank: 1
等 级:新手上路
帖 子:32
专家分:0
注 册:2013-12-6
  得分:0 
难点:零至九这十个字段名都是数值型,零这一列的空白,是否会默认为出现了0?
2018-07-09 23:41
wuzhucelela
Rank: 1
等 级:新手上路
帖 子:32
专家分:0
注 册:2013-12-6
  得分:0 
或者零至九这十个字段名都改为字符型,出现的数字用中文“一、二.......九”显示,是否可以解决问题?   通过编程,自动在DBF表的末尾行增加三行,然后在最末行的相应位置显示最近出现的5个不同的数字(汉字)
2018-07-09 23:46
sdta
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:170
帖 子:7399
专家分:17490
注 册:2012-2-5
  得分:0 
不是太明白

坚守VFP最后的阵地
2018-07-10 00:02
sdta
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:170
帖 子:7399
专家分:17490
注 册:2012-2-5
  得分:0 
字段改为字符型好处理。

坚守VFP最后的阵地
2018-07-10 00:07
sdta
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:170
帖 子:7399
专家分:17490
注 册:2012-2-5
  得分:50 
* 表名改为 ysb
* 所有字段改为字符型
close database
use ysb
delete for recno()>28
pack
c=""
n=0
for i=reccount() to 1 step -1
    go i
    for ii=1 to fcount()
        if not empty(evaluate(field(ii)))
            if not alltrim(evaluate(field(ii)))$c
                c=c+alltrim(evaluate(field(ii)))
                n=n+1
                exit
            endif
        endif
    endfor
    if n=5
        exit
    endif
endfor
for i=1 to 3
    append blank
endfor
for i=1 to len(c)
    b=substr(c,i,1)
    replace record reccount() (field(val(b)+1)) with b
endfor
browse

[此贴子已经被作者于2018-7-10 00:30编辑过]


坚守VFP最后的阵地
2018-07-10 00:29
wuzhucelela
Rank: 1
等 级:新手上路
帖 子:32
专家分:0
注 册:2013-12-6
  得分:0 
谢谢,神明的版主。
2018-07-10 23:21







关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.022535 second(s), 8 queries.
Copyright©2004-2018, BCCN.NET, All Rights Reserved