Question

vb把access每一列求平均值代码

我要把上面这个表中的指定日期段数据的 Fe Cr Pb Cu等数据每一列求平均值，求得的平均值显示在下面这个表中（下面这个表的标准值就是平均值）“浓度界限值计算”这个按钮的代码怎么编？需要两个datagrid控件和一个adodc控件？还是两个adodc控件？表名是“光谱样本数据”，

Answer 1

按原样显示数据，用控件绑定的方式是最简单的，但是统计数据一般没法一次完成（比如第二个表格），所以用记录集的方式（先引用ADO）会比较灵活：
pCn.ConnectionString = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbFile
pCn.Open
strSQL="select avg(Fe),avg(Cr)... from 光谱样本数据 where ..."'SQL语句求平均值
rs.Open strSQL, pCn, adOpenForwardOnly, adLockReadOnly, adCmdText
然后添加数据到网格（循环逐行逐列的添加）