SELECT DISTINCT YM FROM temp INTO CURSOR YM
DECLARE A(reccount(),fcount())
DECLARE B(reccount(),fcount())
sele YM 
INDEX on YM to aa
COPY TO ARRAY A
FOR i=1 TO RECCOUNT()*FCOUNT()
  B(i)='Q'+A(i)
ENDFOR

DISPLAY MEMORY LIKE A*
DISPLAY MEMORY LIKE B*

SELECT DISTINCT bjh, dpt FROM temp GROUP BY bjh,dpt INTO CURSOR zidiso_0
k=0
FOR j=1 TO 1
  X=('zidiso_0_a'+ALLTRIM(str(j,1)))
  SELECT DISTINCT bjh, dpt,qty FROM temp WHERE YM==A(j) INTO CURSOR &x
  y=('zidiso_'+STR(k,1))
  SELECT (&y).*,(&x).qty as (B(j)) FROM (&y) LEFT JOIN (&x) ON (&y).BJH=(&x).bjh AND (&y).dpt=(&x).dpt INTO CURSOR ('zidiso_'+STR((k+1),1))  &&错误行，错在哪儿了
  k=k+1
ENDFOR
COPY TO zidiso_6

[此贴子已经被作者于2023-10-16 17:26编辑过]

VFP提示：下边这句有错误，提示：命令中含有不能识别的短语或关键字，但是不知道错在哪儿了？请大神指点
SELECT (&y).*,(&x).qty as (B(j)) FROM (&y) LEFT JOIN (&x) ON (&y).BJH=(&x).bjh AND (&y).dpt=(&x).dpt INTO CURSOR ('zidiso_'+STR((k+1),1))  

纠正一下哈，FOR j=1 TO 1 更改为 FOR j=1 TO Alen(B)；错误仅存在下边这一行，其它的都能执行过去
SELECT (&y).*,(&x).qty as (B(j)) FROM (&y) LEFT JOIN (&x) ON (&y).BJH=(&x).bjh AND (&y).dpt=(&x).dpt INTO CURSOR ('zidiso_'+STR((k+1),1))  

这是个人为了区分生成临时表的内容，因为只有一个字段YM，所以也把临时表命名为了YM

感谢大神，你的是对的，我的错误在于少了一个".",改成两个".."就对了

  SELECT &y1..*,&X..qty as &Z FROM &y1 LEFT JOIN &X ON &y1..BJH=&X..bjh AND &y1..dpt=&X..dpt INTO CURSOR &y2