回复 17楼 吹水佬
不是自由表就做不到了吗 ? 回复 21楼 TonyDeng
是想写个 exe 里面只有一个 prg 把那个exe进Folder A ,然后双击 , Folder A里的icitem.dbf 大部分资料就会贴上去其他folder 的icitem ,
所以主应该是 Folder A 吧 。
程序代码:USE icitem Alias icitem1 In 0
USE d:\bs\yf2\acc\Data\icitem Alias icitem2 In 0
CREATE CURSOR icitem1 (item_no C(10), icitem C(20))
INSERT INTO icitem1 VALUES ("101", "101111")
INSERT INTO icitem1 VALUES ("201", "201222")
INSERT INTO icitem1 VALUES ("301", "301333")
CREATE CURSOR icitem2 (item_no C(10), icitem C(20))
INSERT INTO icitem2 VALUES ("101", "")
INSERT INTO icitem2 VALUES ("201", "")
INSERT INTO icitem2 VALUES ("301", "")
SELECT icitem1
INDEX on item_no TAG item_no
SELECT icitem2
SET RELATION TO item_no INTO "icitem1"
REPLACE icitem2.icitem WITH icitem1.icitem ALL
SET RELATION TO
SELECT icitem1
Delete TAG item_no
SELECT icitem2
BROWSE