CS12.dbf与CS11.dbf两个表，前者有数据，后者为空。现在想将CS12里的所有数据提取到CS11里，但两表字段不完全对应，CS12里的A08字段与A11字段分别对应CS11的A11字段与A08字段。小弟编程门外汉，看了一晚教材仍不得要领，是不是能用replace实现呢？希望有好心人给个prg的范例，谢谢

什么都没有，无能为力。

不就是把12的A08,A11放到11里，字段内容交叉一下嘛
Insert into CS11 (A08,A11) Select A11,A08 From CS12

抱歉，因为原表不对应的字段太多，所以简化了问题



要将YSCS12_F7.DBF的全部数据提取到YSCS11_F7.DBF中，且F1_9和F1_11对调，目标表的F1_95~F1_106留空，F1_107取源表的F1_95

close databases
set safety off
select sys_zdm from yscs12_f7 into array a1
use yscs11_f7 alias y11 in 0 && 117
select y11
zap
insert into y11 from array a1
select yscs12_f7
for i = 2 to 95
    select evaluate(field(i)) from yscs12_f7 into array a1
    select y11
    do case
        case between(i, 2, 18) or i = 20 or between(i, 22, 94)
            replace from array a1 fields (field(i)) all
        case i = 19
            replace from array a1 fields f1_11 all
        case i = 21
            replace from array a1 fields f1_9 all
        case i = 95
            replace from array a1 fields f1_107 all
    endcase
endfor
select y11
browse

[此贴子已经被作者于2018-12-27 00:40编辑过]

Use yscs11_f7
Append From yscs12_f7
Replace all ;
     F1_107 with F1_95 ;
    ,F1_95 with F1_11 ;
    ,F1_11 with F1_9 ;
    ,F1_9 with F1_95 ;
    ,F1_95 with 0