怎么将一个表中的备注型值拷备到另一个表的相同中呀！？

帮你 UP 、 我没有看出问题有个建议
先把 acard、bcard copy 到一个目录
不使用循环
只替换一个字段试试如何
 

解决方案 »

  1.   

    比如在新建目录
    use acard in select(1)
    use bcard in select(1)
    sele acard
    replace 社关备注  with bcard.社关备注 
    ?acard.社关备注 
      

  2.   

    我也没看出毛病，也可以换个方法试试：
    select 2
    go top
    do while !EOF()
       select 1 
       locate all for acard.姓名 = bcard.姓名
       replace acard.工作经历 with bcard.工作经历,acard.学习经历 with bcard.学习经历,acard.培训经历 with bcard.培训经历,acard.个简奖惩 with bcard.个简奖惩,acard.主要社关 with bcard.主要社关,acard.社关备注 with acard.社关备注
       select 2
       skip 
    enddo
    试试，
    或者，
    对bcard以姓名进行索引，打开索引
    为acard与bcard建立关联
    sele 1
    SET RELATION TO acard.姓名 INTO bcard ADDITIVE
    然后不要循环
    直接：
    replace all acard.工作经历 with bcard.工作经历,acard.学习经历 with bcard.学习经历,acard.培训经历 with bcard.培训经历,acard.个简奖惩 with bcard.个简奖惩,acard.主要社关 with bcard.主要社关,acard.社关备注 with acard.社关备注
      

  3.   

    下面程序一定可以显示出值。与前一个示例仅多一个 append blank
    查一下 acard 是否空的、一般的、替换前需要加空行。 crea table acard (社关备注  m)
    crea table bcard (社关备注  m)
    clos data all
    use acard in select(1)
    use bcard in select(1)
    sele bcard
    appe blank
    repl 社关备注 with "What's a day is today"
    sele acard
    appe blank
    replace 社关备注  with bcard.社关备注+chr(10)+chr(13)+'this is table acard' 
    clea
    ?acard.社关备注 
      

  4.   

    现在插播一条广告：一个既简单有复杂的问题 (关于 memfile )http://www.csdn.net/expert/topic/755/755278.xml?temp=.8945581