VFP 愛用者社區

[云想衣]

? TIME()

CLOSE ALL
SET DEFAULT TO "F:\数据" && 1 更改路径
DIMENSION t(4),p(4),l(4),dbtl(35)
SET SAFETY OFF

use "F:\数据\sha_200605_1stk" EXCLUSIVE IN 1 &&2 原始数表

use "F:\数据\股票代码" EXCLUSIVE IN 4 &&2 股票代码表

use "F:\数据\0501" EXCLUSIVE IN 3 &&结果表建立新表
SELECT 3
ZAP
SELECT 4
GO top
DO WHILE !EOF()
stkcd1=stkcd
SELECT 3
APPEND FROM F:\数据\sha_200605_1stk.dbf FOR stkcd=stkcd1
SELECT 4
SKIP
ENDdo



以上是我的编程，我要在"F:\数据\sha_200605_1stk"这张表中选出“F:\数据\股票代码”这张表中有的代码，并把结果放在"F:\数据\0501"这张表中。以上结果运行了以后上面三张表格全部打不开了，我不知道哪里出错了，请各位指教！

[ckp6250]

為何打不開,不知道!
但,程式碼太複雜了
用一行就好
insert into F:\数据\0501 select * from F:\数据\sha_200605_1stk where stkcd in (Select stkcd from F:\数据\股票代码)

[云想衣]

非常感謝ckp6250！！