CLOSE DATABASES
SELECT * FROM B1 INTO ARRAY AB1
SELECT * FROM B2 INTO ARRAY AB2
USE B3
SELECT B3
BLANK FIELDS _1SM0, _1SM1, _1SM2 ALL
FOR I = 1 TO ALEN(AB1, 1)
FOR II = 2 TO ALEN(AB1, 2)
IF NOT EMPTY(AB1[I, II]) AND NOT EMPTY(AB2[I, II])
REPLACE (LEFT(FIELD(II), 4) + ALLTRIM(STR(II - 2))) WITH FIELD(II) RECORD I
ENDIF
ENDFOR
ENDFOR
BROWSE
结果
图片附件: 游客没有浏览图片的权限,请
登录 或
注册