CLOSE ALL
sele 0
use ksk ALIAS ksk
sele 0
use kcdd ALIAS kcdd
SELECT ksk
GO top 
do while not EOF()
 
FOR i=1 to val(kcdd.kw)
  REPLACE ksk.kcdd with kcdd.kcdd,kc with kcdd.kc,zwh with alltrim(str(i))
    if not eof()
      skip
    endif
ENDFOR
sele kcdd
skip
sele ksk
enddo

觉得思路不是很好，朋友们有什么修改意见，请赐教