二个字段数相同，但字段名部分不同，其数据内容和格式完全一样的表，如何从有数据值的前表导入空的后表？

CREATE CURSOR T1 (BH C(2),A1 C(2))
INSERT INTO T1 VALUES ([01],[AA])
INSERT INTO T1 VALUES ([02],[AB])
COPY TO ARRAY T11
CREATE CURSOR T2 (BH1 C(2),A2 C(2))
APPEND FROM ARRAY T11 FIELDS BH1,A2
BROWSE

收到的鲜花

• tlliqi 于 2012-12-21 10:46 送鲜花  10朵   附言：加点辛苦费

用append from不行吗

例如
use 表a
append from 表b

可以换个思路，先复制这个表，然后再修改字段名。

字段名不一样，不能直接append的。

修改字段名可行

这个问题，说到底还是基础问题，VFP帮助文件中有详细的说明，建议楼主多看看帮助文件的有关内容

如果两个表的字段类型和顺序都相同：
*（假设从old.dbf导入到ok.dbf)
USE i:\ok
USE i:\old in 0
FOR i=1 to RECCOUNT("old")
    APPEND BLANK
    GO i in old
    FOR j=1 to FCOUNT()
        SELECT old
        n_f=fields(j)
        SELECT ok
        REPLACE (fields(j)) with old.&n_f
    NEXT
NEXT
BROWSE

收到的鲜花

• tlliqi 于 2012-12-21 10:46 送鲜花  10朵   附言：加点辛苦费

**假设你所要处理的表分别为A、B表，表A为空表，表B是已有数据的表。表A的字段分别为A1、A2....，表B的字段分别为B1、B2.....

SELECT 1
 USE A
  INDEX on A1 TO A1  && 以表A的主字段A1作为关键字建立索引
  SELECT 2
  USE B
  GO TOP
 DO whil NOT EOF()
   mB1=B1         &&将表B的各字段赋值给mB1、nB2.....
   mB2=B2
  .......  
  SELECT 1        
   SEEK mB1       && 在空数据表中寻找B数据表中的记录
    IF EOF()      && 如果没有找到，就追加一条空记录
     APPEND BLANK
     REPLACE A1 WITH mB1    && 用B表中数据记录的值替换空记录中的值
     REPLACE A2 WITH mB2
    ..........
    ENDIF
   SELECT 2
   SKIP
  ENDDO         && 全部导出完成就结束循环

收到的鲜花

• tlliqi 于 2012-12-21 10:46 送鲜花  10朵   附言：加点辛苦费

何须如此复杂！文件不大的话可以先将表中的记录全部转入二维数组中，然后将二维数组再转入到新表中；文件太大的话可以通过循环将每条记录分别通过一维数组转到新表中。如同2楼的代码。

[ 本帖最后由 hu9jj 于 2012-12-21 09:43 编辑 ]