sdta 版主：
Local lcBkkm,lcKddm,lcStr
Store "" To lcBkkm,lcKddm,lcStr
Create Cursor Tj (考点代码 C(5),科目 C(10))
Select * From ls2 Into Cursor Temp
Scan
   For lnI=1 To Alines(Abkkm,Alltrim(报考科目),",")
       Insert Into Tj Values (Temp.报名点代码,Abkkm[lnI])
       If Not Alltrim(Abkkm[lnI])$lcBkkm
          lcBkkm=lcBkkm+Iif(Empty(lcBkkm),"",",")+Alltrim(Abkkm[lnI])+" N(4)" && 提取报考科目
       EndIf
   EndFor
Endscan
Messagebox(lcBkkm)
Create Cursor Tjb (考点代码 C(5),&lcBkkm,小计 N(5))

Select 考点代码,科目,Count(*) 人数 From Tj Group By 1,2 Into Cursor Temp
Scan
   If Alltrim(考点代码)==lcKddm
   Else
      Insert Into Tjb (考点代码) Values (Temp.考点代码)
   EndIf
   Replace (temp.科目) With temp.人数 For Alltrim(考点代码)==Alltrim(Temp.考点代码) In Tjb
   lcKddm=Alltrim(考点代码)
Endscan

Insert Into Tjb (考点代码) Values ("合计")
Select Tjb
For lnI=2 To Fcount()-1
    lcStr=lcStr+Field(lnI)+Iif(lnI<Fcount()-1,"+","")
    Sum Evaluate(Field(lnI)) To X
   
Messagebox( Evaluate(Field(lnI)),0,"代码结果3")&&我在此处插入此代码，看一下结果，消息框提示是0

图片附件: 游客没有浏览图片的权限，请 登录 或 注册

是何原因？

Replace Record Reccount() (Field(lnI)) With X && 列合计
EndFor
Replace All (Field(Fcount())) With Evaluate(lcStr) && 行小计
Browse

Sum命令后，记录指针到文件尾(不是最后一条记录，Eof()=.F.)
Go Recno()

Messagebox( Evaluate(Field(lnI)),0,"代码结果3")

看下会是什么结果


[ 本帖最后由 sdta 于 2014-5-25 16:38 编辑 ]

结果是如图，表示已到最后一条记录了

我把Messagebox( Evaluate(Field(lnI)),0,"代码结果3")放到Sum命令前面，同样也提示0，又作何介释？请教。

无法解释

不要用go recn()，sum之后记录指针已经在表的最后一条记录的后面，即recn()已经超出了记录范围。改用go bott或go top就不会出错了。

那很可能是表的记录指针已经被移动到记录范围之外了。

也只能如此介释了

tlliqi班主：
select 报名点代码,SUM(IIF(fkm(i)$报考科目,1,0)) &fkm(i)人数 FROM ls2 GROUP BY 1 into table &fkm(i)
中。为何二者不同？
把上面的部份语句作如下改动,就报错？

SUM(IIF(fkm(i)$报考科目,1,0)) fkm(i)人数
或
SUM(IIF(&fkm(i)$报考科目,1,0)) &fkm(i)人数
&函数不是把字符串变量的值替代过来吗？
for i=1 to fcount()
a=fiel(I)
repl &a. with ...
endfor
为什么在sql语句中有的地方行，有的不行？