sdta：
我说的是‘Iif(lnI<Alen(Abkkm,1),"",",00000 小计’中的iif判断的思路:for int=1 to alen(Alen(Abkkm,1)

循环开始是ini均小于Alen(Abkkm,1)用"" ,只到了循环结束后用00000 小计
这个""是不是用lcSql+",Cast(Max(Iif(Alltrim(Km)=='"+Alltrim(Abkkm[lnI])+"',Rs,0)) As N(4)) "+;
    Alltrim(Abkkm[lnI])产生SQL语句时各科目之间产生空格：select 地理， 历史，..

[ 本帖最后由 sylknb 于 2014-5-25 11:51 编辑 ]

我理介了产行SQL 语句中各科目间产生空格，反之为00000 小计。

运行此句提示：Create Cursor Tjb (考点代码 C(5),&lcBkkm,小计 N(5))，语法错误!

运行到Create Cursor Tjb (考点代码 C(5),&lcBkkm,小计 N(5)) 提示语法错误
 

我也不知道何原因？LS2库第一条为空时出现错误提示[attach]76133[/attach]
当第一条给它填上，没有错误提示。
第一条记录为空与Create Cursor Tjb (考点代码 C(5),&lcBkkm,小计 N(5)) 是没有关系的。



[ 本帖最后由 sylknb 于 2014-5-25 13:57 编辑 ]

原因找出来了，若第一条记录为空，lcbkkm所产生的为
 Messagebox(lcBkkm)

Create Cursor Tjb (考点代码 C(5),&lcBkkm,小计 N(5)) 中),&lcBkkm产生错了，所以提示

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

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

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

也只能如此介释了