版主：谢谢您的重视。
俺说的那个表是：“从b1999表中挑出ms9、ms10、ms11、ms12，从b2000表挑出ms1、ms2、ms3。。。。。。。。ms12，从b2001表中挑出ms1。。。。。。ms4，然后把这些数据形成新的表（明细表）”。谢谢。

思路跟刚才给你的那个差不多， 你自己变通一下即可

版主：俺想了好久，水平有限，还是想不出来变通的办法，请您告诉俺吧，谢谢您。

都告诉你了，你的表设计的是有问题的，把 一个简单问题复杂化了

谢谢版主教导。

版主：您好，今天俺认真想过，确实由于水平不够，真的想不出来，俺还是请求您帮助 如何从b1999表中挑出ms9、ms10、ms11、ms12，从b2000表挑出ms1、ms2、ms3。。。。。。。。ms12，从b2001表中挑出ms1。。。。。。ms4，数据形成新的表（明细表），非常感谢。

set talk off
set safety off
close all
ldDate1=date(1999,9,1)
ldDate2=date(2001,4,30)
lcHm='雪碧'
lcSQL='create table tmp1 (ss n(4),hm c(10)'
for i=year(ldDate1) to Year(ldDate2)
  for j=iif(i=year(ldDate1),month(ldDate1),1) to iif(i=year(ldDate2),month(ldDate2),12)
    lcSQL=lcSQL+',ms'+str(i,4)+padl(j,2,'0')+' n(6)'
  endfor
endfor
lcSQL=lcSQL+')'
&lcSQL

select tmp1
locate all for alltrim(hm)==lcHm
if eof()
  append blank
  replace hm with lcHm
endif

for i=year(ldDate1) to year(ldDate2)
  cTable='d'+str(i,4)
  use (cTable) in 2 alias tmp2
  select tmp2
  locate for alltrim(hm)==lcHm
  if eof()
    loop
  endif
  for j=iif(i=year(ldDate1),month(ldDate1),1) to iif(i=year(ldDate2),month(ldDate2),12)
    select tmp2
    lnFieldValue=evaluate(field(j+2))
    select tmp1
    lcFieldName='ms'+str(i,4)+padl(j,2,'0')
    replace (lcFieldName) with lnFieldValue
  endfor
endfor
select tmp1
brow

衷心感谢版主，俺初来乍到就得到版主的热情款待和盛情的指导，俺感动不已，再次致谢。
俺确实水平很有限，因为工作喜欢上了VFP，它带给俺工作上极大的方便，俺是门外汉，所学之VFP知识均自学而来，很多还是不懂不明白，好像昨晚您给俺的那个程序以及刚才的那个出表得程序，俺还是有一些地方看不懂的，俺还要努力学习，还望版主赐教，谢谢。

版主：拜读您的在17楼程序，俺在想，能否在以下那段代码中：
for j=iif(i=year(ldDate1),month(ldDate1),1) to iif(i=year(ldDate2),month(ldDate2),12)
    select tmp2
    lnFieldValue=evaluate(field(j+2))
    select tmp1
    lcFieldName='ms'+str(i,4)+padl(j,2,'0')
    replace (lcFieldName) with lnFieldValue
  endfor
加一个循环结构的语句，把每一次循环得出的lnFieldValue统计下来（total），到最后为tmp1加一个字段（grandtotal），然后把total放进去，那就不用再运行在8楼的程序求得结果再进行表间转移总数了。我刚尝试加入循环语句但不成功，再恭请版主指导，谢谢。