添加记录和操作记录集以包含公式

Question

基本信息:oracle, vb6和excel，使用ADO获取记录集。

当我在记录集的末尾添加新记录时，我面临着操纵记录集的问题。最后一条记录应该包含如下公式:例如，column2的计数、column3中的值之和以及sum(col3)和col2的除法

记录集中的原始列

客户端端应该显示Total

PRINCIPAl本列末尾应显示average(PRINCIPAl)

GROSS_LIQ_RATE本列的末尾应该显示average(gross)/sum(principal)

当我添加记录集时，它给出一个错误我像这样添加:

.AddNew     .[columnname] = Sum(rst.Fields(1))      .Update

Answer 1

我不相信你可以这样使用Sum()。您将使用application.worksheetfunction.sum()，因为sum不是vba函数。

其次，我不认为rst.fields(1)将返回字段中的所有值。您需要遍历记录集，对每个记录求和rst.fields(1).value。

从设计的角度来看....您正在寻找的所有值都可以很容易地通过SQL直接计算，我不认为有任何理由将数据拉入记录集来执行这些操作。