VF6.0表中用什么命令实现将一个表中的字段值赋值给另一个表

来源:百度知道 编辑:UC知道 时间:2024/05/18 04:46:26
1、现有两张表,一个是表A,一个是表B,我想将表A中的1字段的值赋给表B中2字段使表A中1字段与表B2字段值相等(这两张表是在同一文件夹中).
特别说明下,以上1和2字段的值是日期

2、同样是上面两张表有相同字段3且值一样,我想查询,表A中1字段为空的,在表B中显示表B2字段有多少
谢谢,不好意思,我没说清楚,问题1中,表B少于表A,且两个表有一个相同字段3,我想在表A中找出有多少个和表B一样的字段3的值且为这些一样的在表B中将表A中的1字段的值赋给表B中2字段
谢谢大家帮帮忙吧

1.
CLOSE TABLE ALL
USE E:\TEMP\表B ALIAS 表B IN 0
SELECT 0
USE E:\TEMP\表A ALIAS 表A
SCAN
SELECT 表B
REPL 字段2 WITH 表A.字段1
SKIP
SELECT 表A
ENDSCAN
以上代码即可将表A的字段1的值赋给表B字段2.条件是表B表的记录数不少于表A的记录数
2.
CLOSE TABLE ALL
SELECT 0
USE E:\TEMP\表B ALIAS 表B EXCL
INDEX ON 字段3 TAG 字段3
SELECT 0
USE E:\TEMP\表A ALIAS 表A
SET RELATION TO 字段3 INTO 表B
BROW FIELDS 字段3 FOR EMPTY(字段1) NOWAIT
SELECT 表B
BROW FIELDS 字段3,字段2 NOWAIT
SELECT 表A
此时你用光标键在表A中移动记录,同时可以看到表B的浏览窗口中字段3值与表A字段3值相同的对应的记录

附:表的结构及数据
表A 的结构:
字段1 D 8
字段3 C 20
记录:
字段1 字段3
2008.01.01 001
2008.02.06 002
. . 003
2008.03.05 004
2008.03.15 005
. . 006
2008.08.08 007

表B 的结构:
字段2 D 8
字段3 C 20
记录:
字段2 字段3