在View的OnSummary事件里添加:
//处理VCL库TFmtBcd自动求和的BUG(未知情况下会取整求和)
if(Arguments.SummaryItem->ItemLink->InheritsFrom(__classid(TcxGridColumn)))
{
TcxGridColumn* pCol = dynamic_cast<TcxGridColumn*>(Arguments.SummaryItem->ItemLink);
if(pCol->DataBinding->ValueType == "FMTBcd")
{
double dbValue;
if(!VarIsNull(ASender->DataController->Values[Arguments.RecordIndex][pCol->Index]))
{
dbValue = ASender->DataController->Values[Arguments.RecordIndex][pCol->Index];
OutArguments.Value = dbValue;
}
}
}