클라이언트 데이터 집합에서 계산 및 내부 계산 필드를 다시 계산하도록하는 방법은 무엇입니까?

Question

ClientDatSet에 몇 개의 fkInternalCalc 필드가 있습니다. CDS는 어떤 제공자와도 연결되어 있지 않습니다. 대신 그것은 날아 섰다. 어떻게하면 CDS가 모든 "계산 가능한"필드를 다시 계산하도록 강제 할 수 있습니까? 데이터를 새로 고치는 공급자가 없기 때문에 Refresh()으로 전화를 걸 수 없습니다. 지금까지 내가 가진 유일한 방법은 모든 레코드를 탐색하는 것이 었으며 이것이 최선의 방법은 아닙니다.

추신 : 나는 this question과 this post을 읽었지만 좀 더 우아한 방법을 기대합니다.

Answer 1

도우미 (여기서는 필요에 따라 제거됨)을 사용하면 해킹없이 보호 된 메소드를 호출 할 수 있습니다. fCInternalCalc 필드의 경우 OnCalcFields에서 DataSet.State = dsInternalCalc을 확인하십시오.

type 
    TClientDataSetHelper = class helper for TClientDataSet 
    public 
    function AssureEditing: Boolean; 
    procedure InternalCalc; 
    end; 

function TClientDataSetHelper.AssureEditing: Boolean; 
begin 
    result := not (State in [dsEdit, dsInsert]); 
    if result then 
    Edit; 
end; 

procedure TClientDataSetHelper.InternalCalc; 
var 
    needsPost: Boolean; 
    saveState: TDataSetState; 
begin 
    needsPost := AssureEditing; 
    saveState := setTempState(dsInternalCalc); 
    try 
    RefreshInternalCalcFields(ActiveBuffer); 
    finally 
    RestoreState(saveState); 
    end; 
    if needsPost then 
    Post; 
end; 

이 값은 CalculateFields을 사용하여 정상적인 계산 필드에서 쉽게 확장 할 수 있습니다. 다른 데이터 필드가 변경 될 때마다 계산 된 필드가 다시 계산되므로 필요하지 않습니다.

Answer 2

이것은 약간의 해킹이지만 작동합니다!

DBGrid.Height := 30; 
DBGrid.Height := 200; // Refresh all Rows after first 
CalculatedProc(DataSet); // Refresh first calculated fields. (Write name of your calculate procedure)