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

Question

基本细节： oracle，vb6和excel，使用ADO获取记录集。

当我在记录集的末尾添加新记录时，我在操作记录集时遇到问题。最后一条记录应包含公式，例如count，例如column2，column3中的值之和，以及sum（col3）和col2的分配

记录集中的原始列

此列的CLIENT结尾应显示总计

此列的PRINCIPAl结尾应显示平均值（Principal）

此列的GROSS_LIQ_RATE结尾应显示平均值（总值）/总和（本金）

当我添加记录集时，它会出错 我这样添加：

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

感谢您对此进行调查。

Answer 1

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

其次，我认为rst.fields(1)不会返回字段中的所有值。您需要为每条记录迭代记录集rst.fields(1).value。

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