用程序检查确保数据正确
Bookgood.rar
(2.64 KB)
[ 本帖最后由 tjdeming 于 2013-5-18 18:17 编辑 ]
Bookgood.rar
(2.64 KB)
[ 本帖最后由 tjdeming 于 2013-5-18 18:17 编辑 ]
Bookgood.rar
(2.64 KB)
2013-05-18 18:16
2013-05-18 19:03
2013-05-18 19:20
2013-05-18 19:27
程序代码：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
2013-05-18 19:37
程序代码：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
2013-05-18 19:47
2013-05-18 19:49
2013-05-18 19:54
程序代码：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
2013-05-18 19:56
程序代码：* 数据修改 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
2013-05-18 19:58