USE TZB SHARED
COPY TO LB FIELDS A15,A17,A18,A20,A25,A92
USE LB
INDEX ON STR(A15)+A17+A18 TAG A15
SELECT 0
USE TZU SHARED
SORT ON A65 TO LU FOR SUBSTR(DTOS(A65),1,6)=NE+YE
USE LU &&导入A25
INDEX ON STR(A15)+A17+A18 TAG A15
SET RELATION TO STR(A15)+A17+A18 INTO LB
UPDATE LU SET LU.A25=LB.A25 WHERE LU.A15=LB.A15 .AND. LU.A17=LB.A17 .AND. LU.A18=LB.A18
上述程序段,运行正常。都能导入A25。
USE \\APP002\SCXT\GYS\FPA SHARED
COPY TO LA FOR !('-1-'$A28 .OR. '-2-'$A28.OR. '-4-'$A28)
USE FPA SHARED
COPY TO LB
USE LB
INDEX ON A12+A15+A18+A19 TAG A12
SELECT 0
USE LA
INDEX ON A12+A15+A18+A19 TAG A12
REPLACE ALL A32 WITH ' ',A33 WITH {}
SET RELATION TO A12+A15+A18+A19 INTO LB &&导入
UPDATE LA SET LA.A32=LB.A32,LA.A33=LB.A33 WHERE LA.A12=LB.A12 .AND. LA.A15=LB.A15 .AND. LA.A18=LB.A18 .AND. LA.A19=LB.A19
这个程序段,也执行正常。
USE \\APP002\SCXT\GY8\KCC SHARED
SORT ON A12,A15,A18 TO LA FOR A10>={^2010-01-26}
USE FL8 SHARED
COPY TO LB
USE LB
INDEX ON A1 TAG A1
SELECT 0
USE LA
ALTER TABLE LA ADD A32 C(2)
INDEX ON A1 TAG A1
SET RELATION TO A1 INTO LB &&导入
UPDATE LA SET LA.A32=LB.A32 WHERE LA.A1=LB.A1
这段程序不执行导入。A32字段数据不更新。好奇怪。
谢谢茵梦湖。