坚持学习vfp,QQ:306805680
以下是引用月沐庭轩在2012-10-31 16:14:42的发言:
SET SAFETY OFF
CREATE CURSOR cg (日期 d,购货单位 c (20),销售品种 c (20),销售数量 N)
APPEND FROM cg.XLS XL5
GO TOP
DELETE
CREATE CURSOR xs (日期 d,供应商 c (20),购进品种 c (20),购进数量 N )
APPEND FROM xs.XLS XL5
GO TOP
DELETE
CREATE CURSOR tmp (日期 d,供应商 c (20),购进品种 c (20),购进数量 N,购货单位 c (20),销售品种 c (20),销售数量 N)
INSERT INTO tmp (日期 ,供应商,购进品种 ,购进数量) SELECT 日期 ,供应商,购进品种 ,购进数量 FROM xs WHERE !DELETED()
INSERT INTO tmp (日期 ,购货单位,销售品种,销售数量) SELECT 日期 ,购货单位,销售品种,销售数量 FROM cg WHERE !DELETED()
SELECT tmp
SORT TO abc ON 日期
USE abc
BROWSE
楼主,看看这是不是你需要的结果?
是呀,多谢多谢,学习啦
SET SAFETY OFF
CREATE CURSOR cg (日期 d,购货单位 c (20),销售品种 c (20),销售数量 N)
APPEND FROM cg.XLS XL5
GO TOP
DELETE
CREATE CURSOR xs (日期 d,供应商 c (20),购进品种 c (20),购进数量 N )
APPEND FROM xs.XLS XL5
GO TOP
DELETE
CREATE CURSOR tmp (日期 d,供应商 c (20),购进品种 c (20),购进数量 N,购货单位 c (20),销售品种 c (20),销售数量 N)
INSERT INTO tmp (日期 ,供应商,购进品种 ,购进数量) SELECT 日期 ,供应商,购进品种 ,购进数量 FROM xs WHERE !DELETED()
INSERT INTO tmp (日期 ,购货单位,销售品种,销售数量) SELECT 日期 ,购货单位,销售品种,销售数量 FROM cg WHERE !DELETED()
SELECT tmp
SORT TO abc ON 日期
USE abc
BROWSE
楼主,看看这是不是你需要的结果?