F
fuyou
Unregistered / Unconfirmed
GUEST, unregistred user!
1、主从表2、从表中进行脚统计3、触发事件：滚动前，滚动后4、结果均为上一批（从表KEY=主表KEY)从表的FOOTER统计，即单号2的FOOTER统计显示的却是上一条记录（单号1）的FOOTER统计结果，应该是触发事件不对，但试了很多都存在这种情况procedure TXfrmClaimReportMaint.CDS_ClaimDTAfterOpen(DataSet: TDataSet);begin IF CDS_CLAIMDT.Active THEN BEGIN TTLQty_PRC := 0; TTLQty_HK := 0 ; TTLQTY_Buffer := 0; TTLQty_HandCarry := 0; TTLAmount := 0; TTLQTY_Ledger := 0; WITH CDS_CLAIMDT DO BEGIN FIRST; WHILE NOT EOF DO BEGIN TTLQty_PRC := TTLQty_PRC + FIELDBYNAME('QTY_PRC').AsInteger; TTLQty_HK := TTLQty_HK + FIELDBYNAME('QTY_HK').AsInteger; TTLQTY_Buffer := TTLQTY_Buffer + FIELDBYNAME('QTY_BUFFER').AsInteger; TTLQty_HandCarry := TTLQty_HandCarry + FIELDBYNAME('Qty_HandCarry').AsInteger; TTLAmount := TTLAmount + FIELDBYNAME('TTLAmount').AsFloat; TTLQTY_Ledger := TTLQTY_Ledger + FIELDBYNAME('Qty_Ledger').AsInteger; NEXT; END; END; END;end;