学习新的一招，如何把最后统计结果放入BDF表中，这样才可打印。
语文　数学　英语　政治　历史　地理。。。。。。
234　　1345　。。　、、、、　　、、

真是高手，又学了一招。能否把各科统计结果放入DBF表中，便于打印等。
字段名：语文　数学　英语　　政治　地理　历史。。。
　　　　234　　2345　4562　111　　2222　333

我作了如此改法，能导入到DBF表中：
USE tj
zap
For lnI=1 To Alines(Akms,lcStr1,",")
    *lcStr3=lcStr3+Akms[lnI]+" = "+Padl(Occurs(Akms[lnI],lcStr2),4," ")+" 人"+Chr(13)+" "+Chr(13)
APPEND BLANK
REPLACE 统计 WITH Akms[lnI]+" = "+Padl(Occurs(Akms[lnI],lcStr2),4," ")

lcStr3=lcStr3+Akms[lnI]+" = "+Padl(Occurs(Akms[lnI],lcStr2),4," ")+" 人"+Chr(13)+" "+Chr(13)
EndFor
Messagebox(lcStr3,0,"  各科报考情况统计  ")
SELECT tj
brow

美中不足的分各报名点每一科的统计，在你的代码如何加入？
报名点：语文　数学　　英语　　政治　地理　历史。。。
　6501　　　34　　245　562　　11　　222　33
　6502　　　222　　33　44　　　55　　65　　77
　。。　　　44　　..        ..  ..
　合计　　234　2345　4562　111　　2222　333



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

太完美了，谢谢！又可学习新东西了。

一个比一个精采，要读懂你的代码确定要化好大的力气，里面有好多的奥妙之处。

先初步问一下，下面的代码中有几句不明的
Scan
   If Alltrim(考点代码)==lcKddm    &&如判断结果为真，下面没有没有动作？
   Else
      Insert Into Tjb (考点代码) Values (Temp.考点代码)
   EndIf
   Replace (temp.科目) With temp.人数 For Alltrim(考点代码)==Alltrim(Temp.考点代码) In Tjb  &&是不是更新TJB表？“(temp.科目) With temp.人数”是什么意思？
   lcKddm=Alltrim(考点代码)
Endscan

Replace (temp.科目) With temp.人数 For Alltrim(考点代码)==Alltrim(Temp.考点代码) In Tjb
temp.科目 的内容：地理、历史、化学，......。也就是临时表 Tjb 中的字段名。
上面的代码是动态变换临时表 Tjb 中的字段名
是否可理介为：
在更新tjb记录时，更新jtb中的字段名(如地理)的记录，它的字段名用temp.科目，记录内容，用temp.人数。
真是急转弯了。

For lnI=1 To Alines(Abkkm,lcBkkm1,",")
    lcStr=lcStr+Iif(Empty(lcStr),"",",")+"Sum("+Abkkm[lnI]+")"
Endfor
MESSAGEBOX(lcStr)   &&我在此处加了来下一句代码(Insert Into Tjb Select "合计",&lcStr,0 From Tjb)中的&lcstr
结果是sum(语文)sum(数学)。

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

Insert Into Tjb Select "合计",&lcStr,0 From Tj    &&此处中的 0  是何义 ？是不是对应“小计”的值？




[ 本帖最后由 sylknb 于 2014-5-23 22:29 编辑 ]

sdta:

太好了，有这样的代码提示学习起来容易多了，代码写的太精练了，才会想的到可以这样写。方显班主的风彩。

sdte:
下段代码中标有红色是什么意思？
For lnI=1 To Alen(Abkkm,1)
    lcSql=lcSql+",Cast(Max(Iif(Alltrim(Km)=='"+Alltrim(Abkkm[lnI])+"',Rs,0)) As N(4)) "+;
    Alltrim(Abkkm[lnI])+Iif(lnI<Alen(Abkkm,1),"",",00000 小计 From Temp Group By Dm Into Cursor Tjb ReadWrite")
Endfor