本人此前在本论坛请教，得到tiger先生和高手们的指导，现再次请教，为方便老师们指教，现把产生表格的程序列出：
close all
  clear
  set safe off
  use d1999 in 1
  zap
  use d2000 in 2
  zap
  use d2001 in 3
  zap
   
  close all
  CREATE table d1999(hm c(4),ms01 n(4),ms02 n(4),ms03 n(4),ms04 n(4),ms05 n(4),ms06 n(4),ms07 n(4),ms08 n(4),ms09 n(4),ms10 n(4),ms11 n(4),ms12 n(4))
  INSERT INTO d1999 VALUES ("雪碧",300,500,700,200,600,800,900,300,950,900,980,500)
  INSERT INTO d1999 VALUES ("可乐",100,300,600,400,700,900,1200,1300,1450,1100,880,600)

  
  brow
 
  CREATE table d2000 (hm c(4),ms01 n(4),ms02 n(4),ms03 n(4),ms04 n(4),ms05 n(4),ms06 n(4),ms07 n(4),ms08 n(4),ms09 n(4),ms10 n(4),ms11 n(4),ms12 n(4))
  Insert Into d2000  Values ("雪碧",100,200,300,400,500,600,800,900,1000,900,950,600)
  Insert Into d2000  Values ("可乐",200,250,380,390,450,900,1050,1100,1550,800,680,500)
  brow
  CREATE table d2001 (hm c(4),ms01 n(4),ms02 n(4),ms03 n(4),ms04 n(4),ms05 n(4),ms06 n(4),ms07 n(4),ms08 n(4),ms09 n(4),ms10 n(4),ms11 n(4),ms12 n(4))
  Insert Into d2001 Values ("雪碧",200,400,600,800,700,600,700,500,1050,600,850,700)
  Insert Into d2001  Values ("可乐",360,280,580,690,650,670,850,800,1450,900,580,450)
  brow
 CREATE table tjb (hm c(4),ldDate1 d(8), ldDate2 d(8))
 INSERT INTO tjb VALUES ( "雪碧", {^1999-3-1}, {^2001-10-31})
 INSERT INTO tjb VALUES ( "可乐", {^1999-5-1},{^2001-5-31})
 brow
 
  close all
  clear
  set safe on
俺的问题是，如何用以下的程序，对tjb表所要求的两个品种和期限进行统计？并同时得出这两个品种的结果表。
ldDate1=date(1999,9,1)
ldDate2=date(2002,12,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+',mstotal n(6))'   &&lcSQL=lcSQL+'mstotal n(6))'
&lcSQL


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

nTot=0
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
    nTot=nTot+lnFieldValue
  endfor
endfor
select tmp1
replace mstotal with nTot
brow

看来thomasou先生是个老手，只是没想通为何将这么个问题弄这么麻烦和复杂

我看了好一阵子　没想通
一、先建的三个表..　为何不用一个表就解决了
　　　　　　　　　　　　　年月　雪碧　可乐
　　　　　　　　　　　　199901　300   100
　　　　　　　　　　　　199902  500   300
　　　　　　　　　　　　　.
                          .
二、你要达到的目的..　没整明白为啥向临时表中用repl和循环来处理　看到都晕　直接用几个查询
如：     select ss,hm,ms01,ms02..ms　from d1999 where hm='雪碧'  into dbf tmp1
大不了　再来点sum count之类的函数不行吗？？
所以建议　建一个表　采用组合查询　看上去简单明了

早就宣判了你的帖子所涉及的表设计不规范，从而产生结果异常复杂。你不听劝告，一意孤行，实在是不好评价了。你自己琢磨吧。

同意上面所说意见，什么问题都应该简单化，弄复杂头绪会太过多，你问的也麻烦，大家回答也麻烦。帮你答答问题还要看老半天，建议楼主多研究研究查询语句，用好会省事省时。

谢谢各位老师的指导。
上次得到了tiger老师的指导，得到了一楼对ldDate1=date(1999,9,1)
                                       ldDate2=date(2002,12,30)
                                        lcHm='雪碧'这个特定条件下的统计程序，用得挺好的。
     在平常的应用中，对每个品种的统计，用的是日表汇总成月表，由月表汇成年表，这样的表格由基层人员填写，用EXECL格式，所以就用了很简单的模式，，在由文员导入VFP系统，形成数据库。
     今天琢磨着，看能否善用上次在论坛请教tiger老师的查询程序，根据tjb表一次对多个品种进行统计，形成一个统计查询的表格，俺自己又搞不掂，所以就请教老师们了。希望能赐教，谢谢。
     

昨晚看了前面几条就没耐性再看下去了：既然要建立新表，那么对旧表的打开、删除全部记录、再关闭……这些操作不是多余的吗？
还有就是每年一个表（有些人甚至一个月就一个表），那么十年、二十年呢？

谢谢老师们关注。前一段的建表程序，只是为了老师们指导时，方便衔接下面程序实验使用的，现实中，是有现成的年表的。谢谢。

你可以建一个现成的表，然后导入EXCEL数据！

日常工作中，是使用EXCEL表作记录和登记的，由日表累计成月表，由月表累计成年表，由年表导入VFP数据库，由于有大量的货品，所以用数据库管理，本次发帖请教，主要是从大量货品中按要求查询，请大家赐教，谢谢。

对于VFP来说，所有的所谓月表、年表都是多余的，日积月累全部放在一个表上即可。这样一个表，可以让你查询到具体某一天的数据，也可以让你统计任何一个时段（即任意一个起始日期到其之后的任意一个结束日期，可以是一天、两天、十几天、几十天、几个月或几年）的数据。