注册 登录
编程论坛 VFP论坛

表中字段追加问题,请高手指导帮助!

lnsyzhuhua 发布于 2023-05-17 11:38, 26 次点击
只有本站会员才能查看附件,请 登录
1 回复
#2
sdta2023-05-17 12:45
程序代码:
CLOSE DATABASES
SELECT * FROM 需追加字段表 INTO CURSOR t1
AFIELDS(aStr)
SELECT * FROM 原表 INTO CURSOR t2 READWRITE && 不喜欢对基础表操作,故用临时表替代
FOR ln = 1 TO ALEN(aStr, 1)
    IF TYPE("t2." + aStr[ln, 1]) == "U"
        ALTER TABLE t2 ADD &aStr[ln, 1] &aStr[ln, 2] (aStr[ln, 3], aStr[ln, 4])
    ENDIF
ENDFOR
MODIFY STRUCTURE
1