散分!我也做个好事!
谁知道下面的错误的原因是什么??
[Error] DBSumLst.pas(25): Unsatisfied forward or external declaration: 'TDBSum.SetGroupOperation'
部分代码如下:
uses
Windows, Messages, SysUtils, Graphics, Controls, Forms, Dialogs, DB,
Variants,TypInfo , Classes{,dbugintf};
type
TGroupOperation = (goSum, goAvg, goCount);
// TCollectionItem =class;
TDBSum = class(TCollectionItem)
private
procedure SetGroupOperation(const Value: TGroupOperation);
procedure SetFieldName(const Value: String);
protected
FFieldName: String;
FGroupOperation: TGroupOperation;
Value: Currency;
// For Average
FNotNullRecordCount: Integer;
FSumValueAsSum: Currency;