第二个问题  。  用vbs脚本存储了记录。  怎么在MSHFlexGrid上显示  总条数和某一列的sum值呢。

看下面脚本，   都在在网上根据需要百度的。

Dim recordCountTxt,totalChemicalNumTxt ,sum1 ,i

Set recordCountTxt = ScreenItems("recordCountTxt")

Set totalChemicalNumTxt = ScreenItems("totalChemicalNumTxt")

sum1=0

ors.movefirst

For i=1 To ors.recordcount

sum1=ors.Fields(4).Value+sum1

ors.movenext

Next

sum1=CLng(sum1)

recordCountTxt.Text = "共有"&ors.recordcount&"条记录"

totalChemicalNumTxt.Text = "加液量合计"&sum1&"ml"

这里的ors  就是Recordset 对象 。

思路是在ors里从记录first 开始 统计， 数目是 recordcount  ，也就是御环次数。

把需要列值累计显示。

运行效果如下 

这个clng  是优化之后的。 图片还是以前浮点数。