| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1019 人关注过本帖
标题:用程序检查确保数据正确
只看楼主 加入收藏
tjdeming
Rank: 2
等 级:论坛游民
帖 子:429
专家分:54
注 册:2013-3-4
结帖率:90.14%
收藏
已结贴  问题点数:20 回复次数:19 
用程序检查确保数据正确
Bookgood.rar (2.64 KB)
有一张标准表,用来检查现有数据表的正确性,谢谢各位高手。请用VFP6.0

[ 本帖最后由 tjdeming 于 2013-5-18 18:17 编辑 ]
搜索更多相关主题的帖子: 数据表 
2013-05-18 18:16
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
在数据录入时就要检查数据录入的准确性,不要等到问题发生了,才想到检查数据是否准确,无形中增加了自己的工作量。
没有原始数据,如何检查数据是否准确。

坚守VFP最后的阵地
2013-05-18 19:03
tlliqi
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:204
帖 子:15453
专家分:65956
注 册:2006-4-27
收藏
得分:0 
数据录入时控件就行
2013-05-18 19:20
tjdeming
Rank: 2
等 级:论坛游民
帖 子:429
专家分:54
注 册:2013-3-4
收藏
得分:0 
这个BKGD.DBF是一个自由表,是我随人员变化动态调整,动态调整难免有错,现上
Bkgd.rar (618 Bytes)
传有错的表,请用程序一条条审核出来。谢谢。

[ 本帖最后由 tjdeming 于 2013-5-18 19:30 编辑 ]
2013-05-18 19:27
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
程序代码:
CLOSE TABLES
USE BKGD ALIAS BKGD
USE 标准表 ALIAS BZB
SELECT BZB
SCAN
   UPDATE BKGD SET 编号=BZB.编号,类别=BZB.类别 WHERE ALLTRIM(BKGD.职名)==ALLTRIM(BZB.职名)
ENDSCAN
SELECT BKGD
BROWSE

坚守VFP最后的阵地
2013-05-18 19:37
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
* 数据检查
程序代码:
CLOSE TABLES
USE BKGD ALIAS BKGD
USE 标准表 ALIAS BZB
SELECT BZB
SCAN
   *方法一
   SELECT BKGD
   SCAN
      DELETED FOR ALLTRIM(BKGD.职名)==ALLTRIM(BZB.职名) AND (编号!=BZB.编号 OR ALLTRIM(类别)!=ALLTRIM(BZB.类别))
   ENDSCAN
   *方法二
   *DELETED FROM BKGD ALLTRIM(BKGD.职名)==ALLTRIM(BZB.职名) AND (编号!=BZB.编号 OR ALLTRIM(类别)!=ALLTRIM(BZB.类别))
ENDSCAN
SELECT BKGD
BROWSE

坚守VFP最后的阵地
2013-05-18 19:47
tjdeming
Rank: 2
等 级:论坛游民
帖 子:429
专家分:54
注 册:2013-3-4
收藏
得分:0 
回复 5楼 sdta
序号14、15条记录未审核出来。
能用定位的方法,一条条在目测状态下改,因为毕竟错的是少数。动态调整动态审核就不会错了。
记录不能删除。


[ 本帖最后由 tjdeming 于 2013-5-18 20:01 编辑 ]
2013-05-18 19:49
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
以下是引用tjdeming在2013-5-18 19:49:37的发言:

序号14、15条记录未审核出来。
这就是你当初数据录入时,不规范的数据录入造成的。
把职名中的字母,全部转换为大写,把前面的代码稍做修改就行了

坚守VFP最后的阵地
2013-05-18 19:54
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
程序代码:
CLOSE TABLES
USE BKGD ALIAS BKGD
USE 标准表 ALIAS BZB
SELECT BZB
SCAN
   SELECT BKGD
   BROWSE FOR ALLTRIM(BKGD.职名)==ALLTRIM(BZB.职名) AND (编号!=BZB.编号 OR ALLTRIM(类别)!=ALLTRIM(BZB.类别))
ENDSCAN
SELECT BKGD
BROWSE

坚守VFP最后的阵地
2013-05-18 19:56
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:20 
程序代码:
* 数据修改
CLOSE TABLES
USE BKGD ALIAS BKGD
REPLACE ALL 职名 WITH UPPER(职名) && 注意字母转换
USE 标准表 ALIAS BZB
SELECT BZB
SCAN
   UPDATE BKGD SET 编号=BZB.编号,类别=BZB.类别 WHERE ALLTRIM(BKGD.职名)==ALLTRIM(BZB.职名)
ENDSCAN
SELECT BKGD
BROWSE

坚守VFP最后的阵地
2013-05-18 19:58
快速回复:用程序检查确保数据正确
数据加载中...
 
   



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

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