USE 表二
APPEND FROM 表一 FOR RECNO()=1
APPEND FROM 表一 FOR RECNO()=2
APPEND FROM 表一 FOR RECNO()=n

谢谢一楼指导。按给出的方案转移，都全转了。能否以循环的设计，每次转一条，请指导，谢谢。

楼主想做什么处理？
USE 表一
n=RECCOUNT()
USE 表二
FOR i=1 TO n
    APPEND FROM 表一 FOR RECNO()=i
NEXT 

谢谢3楼指导。俺主要想对以下程序作处理，俺在本论坛一个帖子上发出了，在这儿也发出吧，请指导。
---------受各位高手指导指点的启发，俺用非常非常老土老土的编程办法，处理表一（b01）单月发生的订房问题，以b02表作为过渡表，产生最后b03表，b01表结构是 (ss n(4),xm c(10),rz d(8),ld d(8)),b02表的结构是b02 (ss n(4),xm c(10),rz d(8),ld d(8)ms1 n(1),ms2 n(1).......ms31 n(1))。现把代码呈现，请各位高手指导：
close all
  clear
  use b03
  dele
  pack
  use b02
  dele all
  pack
  copy stru to b03
  close all
  use b01
  repl all ss with 0
  go top
  scan
  i=1
  do while .not. eof( )
  skip
  repl ss with i+1
  i=i+1
  enddo
  endscan
  go top
  repl ss with 1
    
  close all
  clear
    
  use b01
  FOR K=1TO 50  &&（可以根据条目数量调整）
    
  use b02
  dele all
  pack
  append from b01 for ss=K  
    
  use b02   
  FOR i=day(rz)to (day(ld)-1)
  repl ms01 with 1 for i=1
  repl ms02 with 1 for i=2
  repl ms03 with 1 for i=3
  repl ms04 with 1 for i=4
  repl ms05 with 1 for i=5
  repl ms06 with 1 for i=6
  repl ms07 with 1 for i=7
  repl ms08 with 1 for i=8
  repl ms09 with 1 for i=9
  repl ms10 with 1 for i=10
  repl ms11 with 1 for i=11
  repl ms12 with 1 for i=12
  repl ms13 with 1 for i=13
  repl ms14 with 1 for i=14
  repl ms15 with 1 for i=15
  repl ms16 with 1 for i=16
  repl ms17 with 1 for i=17
  repl ms18 with 1 for i=18
  repl ms19 with 1 for i=19
  repl ms20 with 1 for i=20
  repl ms21 with 1 for i=21
  repl ms22 with 1 for i=22
  repl ms23 with 1 for i=23
  repl ms24 with 1 for i=24
  repl ms25 with 1 for i=25
  repl ms26 with 1 for i=26
  repl ms27 with 1 for i=27
  repl ms28 with 1 for i=28
  repl ms29 with 1 for i=29
  repl ms30 with 1 for i=30
  repl ms31 with 1 for i=31
  endfor
  use b03
  append from b02
  endfor
  use b03
  brow
    

在for循环中用宏代换，将会使代码简洁。

谢谢5楼高手，如何应用“宏代换”请给予指导，谢谢。

再请教，如果入住日期、离店日期是跨月份的，如何处理？谢谢

你好.我是全职网赚工作者.
如果你有时间有电脑.
想在网络上创业.请联系我..
项目绝对真实.详情QQ空间资料
加盟请联系 QQ908889846